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Preface 
Dear Reader, 


With the 1570/1571 disk drive you have one of the most powerful 
5 1/4" disk drives available for home computers. The 1570 is a single-sided 
disk drive that contains the electronics of the 1571, but is currently available 
only in Europe. The 1570/1571 processes two different Commodore disk 
formats and a number of different CP/M disk formats. In addition, the 
Commodore drives are probably the only drives which contain their own 
computers—they have independent microprocessor controllers. 


This book is intended to help you get acquainted with all of the 
functions of the 1570 and the 1571. With this in mind, you will find a 
reader's guide following the table of contents. My goal is to lead you to the 
successful use of this disk drive— doesn't matter if you are a beginner or a 
professional. The 1571 Internals book is not only a tutorial guide, but above 
all it is also a reference work. 


Expert programmers will find this book helpful. The ROM listing is in a 
class by itself. Never before has a ROM listing been so thoroughly 
documented. Two unique features of this listing are the entry points and 
calling address cross-references. You'll see these in Chapter 7. 


Finally, I'd like to wish you the best when working with your 
1570/1571 disk drive. Hopefully this book will offer you a much deeper 
understanding of the capabilities of the disk drive than can be obtained with 
the 1570/1571 user's guide alone. 


Rainer Ellinger October, 1985 
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Reader's Guide 


1571 Internals is a very large book. A lot of information is packed in 
these pages. How exactly should you use the book? 


The book has a table of contents, but this alone cannot make it a 
helpful handbook. For this reason, we've put together a Reader's Guide for 
this book. We've divided the audience into several categories, based on the 
reader's experience and previous knowledge. By reading the suggested 
sections, each reader will be able to gain the maximum benefits that this 
book has to offer. If you've: 


1 Never worked with a computer before and are a complete 
beginner, read: 


Sections 1.1, 1.2, 1.3, 1.4 and 1.5 


2 Worked with other computers, have used the C-64 or 
C-128 without a disk drive and understand BASIC, read: 


Sections 1.1, 1.3, 1.4, 1.5 and 5.1 

3 Worked with other computers and disk drives, read: 
Sections 1.2 and 1.3 

4 Used the earlier 1541 disk drives, read: 
Sections 2.1, 2.2, 2.3, 3.1, and 4 


5 Worked with other computers and disk drives, and know 
machine language, read: 


Sections 2.2, 3.1, 4, 5.2, 6, 7, and Appendices 
6 Worked with 1541 and know machine language, read: 
Chapters 6 and Appendices 
All other sections should be used according to your areas of interest. 
Once you have the fundamentals, other information is available to the 
advanced user. The first chapters may also prove helpful to the professional 


for reference. 
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FUNDAMENTALS FOR BEGINNERS 
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The first contact with the disk drive 
The disk drive and Commodore BASIC 
Disk drive system commands 

The sequential file 


The relative file 
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1.1 The first contact with the disk drive 
1.1.1 After unpacking 


Naturally you want to get started right away and begin using your disk 
drive. In spite of this, please be patient for a few moments as we cover this 
introductory section. First we will discuss setting up and connecting the 
drive. All our discussion are applicable to the 1570, a single sided disk 
drive with 1571 electronics (currently available in Europe) and the 1571 
dual sided disk drive. In the following sections we will discuss connecting 
the disk drive and the data medium itself--the diskette. If you are already 
familiar with these things, you can move on to Section 1.1.3. 


The following are included with the disk drive: 
Power cord | 
Connector cable to the computer 
Test/Demo disk 
Instruction manual 
First connect the 1570/1571 to the wall socket with the electrical cord. 
Be sure that the device is turned off. Next connect the drive to the computer 


using the black connector cable. One side of the connector cable plugs into 
the back of the computer as shown below: 


User port Cassette Port Serial bus Monitor Ports Cartridge Port 


aa 6@ pee 


Channel Selector 
Figure 1 The back of the C-128 








The other end of the connector plugs into one of the two jacks on the 
disk drive. Each device which you can connect to the computer (disk drive, 
printer, etc.) has two connectors. Otherwise you could operate only one 
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peripheral from the computer because it had only one connector. One of the 
two connectors serves as an input and the other as output. A second disk 
drive or a printer would then be connected to this output connector on the 
1570/1571. It does not matter which of the two connectors you connect to 
the computer. The important thing is that the other connector can be used 
only as an output. You cannot connect two computers to one disk drive. 





Figure 2 The back of the disk drive 


If you're using a 1571, take a look at the two little switches, called 
DIP switches, on the back of the housing before you start using it. Their 
function is described in Section 1.2.1. Both of them should be up. On the 
1570 these switches are inside the device and are already set correctly. 


Now, when everything is ready, you can turn on the disk drive. On the 


1570 a green LED lights up and on the 1571 a red LED lights up to indicate 
operation and the drive motor runs briefly. The green (1570) or red (1571) 
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light indicates that the drive is turned on. If you observe the power-up 
process carefully, you will notice that the other LED lights up briefly. If all 
of this happens, then your C-1570/71 is functioning normally. If the red 
(1570) or green (1571) LED flashes, then the internal self-test routine has 
found an error. | “ 

The red (1570) or green (1571) LED also normally serves as a 
operating indicator. It indicates that the diskette inserted is currently being 
accessed..As long as this LED is lit you should not remove the diskette from 
the drive. 





Power light | Function light 





Figure 3 The front of the disk drive 
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1.1.2 What is a diskette? 


| we Ninyl case 


q———. Write-Protect 





notch 
Magenitic 
media 

Index 
Read-write hole 
openings 


Disk hub 





Alignment notches 


Figure 4 Diskette 


Figure 4 shows a 5 1/4 inch diskette. The large opening in the lower 
section is immediately obvious. This is where the actual data media, a 
magnetic diskette, is visible. The read/write head in the drive, which 
transfers the data to and from the diskette makes contact with the media 
surface at this location. 


A diskette is inserted into the drive with this opening going in first as in 
Figure 5. On the 1571, rotate the closing lever to the vertical position. On 
the 1570 press the closing latch downward. This seats the diskette properly 
over the drive hub as the motor runs for a few seconds to align the diskette 
better. 


When the drive is in operation, the diskette rotates at about 300 RPM. 
The media is sealed in a plastic sleeve which protects the sensitive magnetic 
surface. The inside of the sleeve is lined with a cleaning cloth material that 
removes dust particles and other dirt. Keep in mind that the information 
stored on the diskette is only a few thousandths of an inch thick. Always 


Abacus Software 1571 Internals 





handle the diskettes with care and never touch the actual media surface, only 
the protective sleeve. Your fingers contain oil and the cleaning cloth cannot 
remove it. Also remember to remove the diskette from the disk drive before 
you turn it off or on. Small uncontrolled voltages may damage important 


data. 


The square notch in the right side is called the write-protect notch. As 
the name implies, it prevents accidental writing or erasing of data. By 
covering the notch with a write-protect tab (supplied with the diskette), the 
write mechanism on the drive is disabled. | 





Figure 5 Correct position for disk insertion 


Now we'll find out how the data is stored on the diskette. A diskette's 
surface is organized into tracks, as is shown in Figure 6. Tracks on a 
diskette are similar to the grooves on a phonograph record. The 1570/1571 
drive can have a maximum of 40 tracks per side. Each track has a capacity 
of about 5000 characters. 


Each track is organized into sectors. The number of sectors varies 
between 18 and 21 per track. Each sector has a capacity of 256 characters. 


A special marker on the diskette is used to identify the sectors on a 
track. If you examine a diskette, you'll notice a small hole next to the hub. 
A photocell in the drive can sense when this hole is directly over the 
photocell. Here is where the first sector of the track begins. The position of 
the other sectors can be determined based on the rotation speed of the drive. 
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Does using the index hole have any advantages? Yes. It is flexible in 
that the size of each sector may be varied. By setting the start of the first 
sector, the position of other sectors may be determined regardless of their 
length. For the 1570/1571 the length is 256 characters. 


The index hole method is used by the CP/M operating system. Diskettes 
which you use in C-64 or C-128 mode do not need the index hole. So that 
the drive still knows where a sector starts, special synchonization marks are 
written to the diskette magnetically. The drive recognizes these marks and 
thereby recognizes the start of a sector. But where is the first sector on the 
track? How are the sectors identified? 


Each sector has a header. The header consists of information which 
precedes the actual data. In particular, the track number and sector number 
are found in the header. Using the header information, the drive electronics 
can “navigate” the diskette. To read a particular sector, the drive analyzes 
the next sector. It knows which track at which the head is currently 
positioned and can move the head to the desired track. Once there, the 
desired sector is found similarly. 


Now, where do you write your data? Since there are more than 13300 
sectors on a diskette, this could be an enormous task. But the 1570/1571 
disk operating system (DOS) handles these details. The DOS keeps tabs on 
the sector usage, the file names and disk locations. We'll talk more about 
this later. 





Figure 6 The diskette structure 
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1.1.3 Diskette formats 


There are many ways to organize the storage of data on a diskette: index 
hole or sync mark; 128, 256, 512, or 1024 characters (bytes) per sector; 
varying the number of sectors per track; and others. The 1570/1571 writes 
40 tracks per disk side. But there are also drives which can write 80 tracks 
per side (higher track density). Furthermore there are different recording 
processes. These are primarily different data packing factors and are 
therefore called single density and double density. There are also the tables 
about sector and disk allocation. Their organization depends on the type of 
computer used. 


The result of these differences is that there are more diskette formats 
than there are computer manufacturers. 


What type of diskette should be used for the 1570/1571? Any diskette 
that is rated for 40 tracks at double density and double sided can be used. 
This is often described on the diskette carton as: 

2D (2sided, Double density) 
or 
DS/DD (Double sided, Double density). 


New diskettes are always blank. Before using them to store data or 
programs, you must format the diskettes. More about this in Section 1.2.2. 
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Commodore format 


Bits per sector, max. 


Total number of sectors 
Number of free sectors 


Characters per sector 


Number of sectors per track 
Tracks 1-17 
Tracks 18 - 24 
Tracks 25 - 30 
Tracks 31 - 35 





CP/M format 


Sides of diskette 2 
Bytes per sector 500000 500000 
26 26 
16 























Number of sectors per track 
128 bytes per sector 
256 bytes per sector 
512 bytes per sector 
1024 bytes per sector 






Total number of sectors 
128 bytes per sector 
256 bytes per sector 
512 bytes per sector 

1024 bytes per sector 
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1.2 The disk drive and Commodore BASIC 
1.2.1 From BASIC 2.0 to BASIC 7.0 


To put the 1570/1571 to work, you must give it commands. This is not 
very complicated. Simply enter the command and press the <RETURN> 
key. This key tells the computer to execute the command. As you know, 
your C-128 accepts these commands in the BASIC language. 


Just as there are various dialects of human languages, there are also 
different dialects of BASIC. Many of the fundamental commands are 
usually the same for all versions, but some commands differ in each 
version. In fact, the different versions of Commodore BASIC do not use 
the same commands for handling the disk drives. The table below lists the 
various Commodore computers and the versions of BASIC each contains. 
They are listed in order of appearance on the market. 























PET 2000 BASIC 1.0 
CBM 3000 BASIC 3.0 
CBM 8000 BASIC 4.0 
VIC-20 / C-64 | BASIC 2.0 
C-16/Plus 4 | BASIC 3.5 





C-128 BASIC 7.0 


The version numbers is a measure of the power of the BASIC. BASIC 
4.0 is somewhat more powerful that BASIC 2.0. But there are often 
exceptions to the rule since BASIC 3.5 should probably be renamed BASIC 
4.5, because it is more powerful than the Commodore 8000's BASIC 4.0. 
As you can see, version 7.0 is ranked highest, exactly as far as the level of 
the C-128 BASIC—the most powerful BASIC that Commodore has 
produced. | 


For us, version 3.0 plays a deciding role. All versions of BASIC 


greater than 3.0 have easy-to-use disk commands. For the other versions, 
working with the disk drive is somewhat more complicated. The syntax of 
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the versions which are less then 3.0 (referred to as BASIC < 3.0 hereafter) 
is also understood by the higher versions. The additional disk commands 
for BASIC > 3.0 (greater than BASIC 3.0) do not function on computers 
with lower BASIC versions. In the following sections, both forms of the 
commands are shown, that of BASIC < 3.0 as well as that of BASIC > 3.0. 


Finally, there is a third option for using disk commands--in the built-in 
machine language monitor. The syntax of these commands is similar to 
syntax of BASIC < 3.0 and is also included. 


So by sending a command to the 1570/1571, you can make it go to 
work. But what happens if two disk drives are connected to the computer? 
How does it know to which device the command applies? 


Every device connected to the C-128 has a device number associated 
with it. Normally, the disk drive is assigned device number 8, a printer 
device number 4 and the cassette recorder device number 1. If you have a 
second disk drive connected, it cannot have the same device number 8. 
Instead, you must use a different device number. 


On the 1571, there are two DIP switches on the back of the unit which 
determine the drive's device number. You can change the device number by 
changing the setting of the switches with a pencil point. On the 1570, the 
DIP switches are located inside of the drive housing. To change the device 
number you must unscrew the housing. | 


The following table lists the switch settings for changing the device 
numbers: | 


Switch 1 | Switch 2 | Device 
(left) (right) Number 


up | Up | 
Up | 


| 8 
down 9 
up down | 10 
down down 11 





To change the settings, you must turn the drive off, select the DIP 
Switch settings and then turn the drive back on to effect a new device 
number. 
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Let's now take a look at data transfer between the computer and the disk 
drive. The 1570/1571 can not only store programs, it can also manage files. 
Let us assume that you are working with two files at once and you want to 
write new data in one of the files. When you send the data, how does the 
disk drive know what file it belongs to? 


In order to solve this problem the 1570/1571 uses data channels. Each 
of these channels is used only for specific tasks. They are similar to radio 
channels. On one frequency there is police radio, on another the fire station 
and emergency, and so on. 


On the 1570/1571 there are a total of 16 channels. Usually only three or 
four of these can be used at one time, however. The channels, like the 
individual devices, are assigned numbers. The following table shows the 
use of the channels: 


Load 
Save 
for Files 
Command Channel 










In order to activate a certain channel, you use the OPEN command on 
both the C-64 and C-128. The syntax of this command looks like this: 


OPEN lfn,Y,Z,"data/name" 


We haven't talked about parameter 1fn. This is an arbitrary number 
between 0 and 255 and is call the logical file number. The logical file 
number is used by subsequent disk commands to refer to the opened 
channel. For example, to send data to the disk over the channel you would 
use a PRINT#1f£n command where 1fn is the logical file number from the 
OPEN command. The logical file number thereby shortens the specifications 
for other commands, making it easier to work with the disk. 


These channel commands are especially important for file management. 
They will therefore be discussed in detail in Sections 1.4 and 1.5. 


13 


Abacus Software 1571 Internals 


1.2.2 HEADER - Formatting a diskette 


BASIC > 3.0: HEADER “diskette name",Dx,lyy,Uz 
Abbreviation: heA 


BASIC < 3.0: OPEN 1,z,15,"Nx:disk name,yy" 


Monitor: | @z,N:x:disk name 


Parameters (optional) 


Dx: x drive number 
lyy: yy 2 ID characters 
Uz: z = device address 





In Section 1.1.3 we talked about formatting. Every new, blank diskette 
must be formatted before it can be used for data storage. Formatting places 
sync markers, headers, and sectors on the diskette. 


If new diskettes are formatted, an ID must be specified. These two 
identification characters allow the disk operating system (DOS) to 
distinguish between diskettes and to determine if a new diskette has been 
inserted. This is why it is important to use a different character combination 
for each diskette. The ID information is placed in each sector header during 
formatting. In addition, the ID characters are also placed in the directory 
(title line) of the diskette. To change the ID later, the disk monitor described 
in Section 6.1 will be of help. 


Not all character combinations are acceptable as an ID for BASIC 7.0. 
This is because the computer interprets the characters as a BASIC command 
and uses the corresponding abbreviation in place of the characters. But 
don't worry, there are quite enough combinations which are allowed. 
Together with the digits 0-9 there are 1296 possibilities. If there are 100 of 
these which you cannot use, it won't limit you too greatly. In addition, you 
can use the BASIC < 3.0 commands. 
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The following combinations of characters are not acceptable to BASIC 
7.0: (Note upper and lower case) 


on fn to aP aU bA bE bL bO bS bU cA cI cO dC dL dO dR dS dV eN fA fE fI 
fR gR gS hE jO kE mO pA pE pL po pU rC rD rE rR rS rU rW sC sL sO sP SS 
sT sW tE tR vO wl xO aB aN aS aT cH cL cM cO GA dE dI eN eX f0O £R gE gO 
iN LE 1I 10 mI nE nO oP pE pO pR rE rI rN rU sA sG sI sSP sQ sT SY tA tH 
uS vA vE wA 


If you use the header command without an ID, the diskette is not 
reformatted, but the data is erased. But just like complete formatting, all data 
will be lost in this process. This is why the computer asks "are you 
sure?" so that you must confirm the command before it is executed. If 
you answer the question with "y" for yes, it will perform the command. 
You can also use the header command in a program. In this case the user is 
not asked to confirm the command to format the diskette. The command is 
executed immediately, so you should program confirmation questions 
yourself in your own programs. 


As you already know from Section1.1.3, the diskette formats in the 
C-64 and C-128 modes are not identical. CP/M diskettes have a completely 
different organization. The differences between the two modes result from 
the fact that the disk drive behaves like a 1541 drive when in the 64 mode or 
when connected to a C-64. If the computer is in the C-128 mode, the drive 
switches to the 1571 mode. The greatest difference between the two modes 
is the disk capacity. The 1571 uses both sides of the disk while the 1541 
uses only one side, since it has only one read/write head. In spite of this, 
1571 diskettes can also be used in the C-64 mode--provided a 1571 drive is 
used. The 1570 does not recognize a second side and always behaves like a 
1541. 
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1.2.3 DLOAD/RUN - Loading and executing BASIC programs 


BASIC > 3.0: DLOAD "program name",Dx,Uy 
RUN "program name",Dx,Uy 


Abbreviation: dL / rU 










BASIC <3.0: LOAD "x:program name",y | 
RUN "program name" is impossible 
optional Parameter: x 


Monitor: L "x:program name", yy,aaaa 
auto-start is impossible 

aaaa = Starting addr. of program 

| Parameters (optional): 


Dx: x= Drive (0/1) 
Uy: y= Device # (4-15) 





Now were getting serious. These are the first commands for working 
with the diskette. Initially you will probably use your disk drive to store 
mainly programs. 


Therefore we want to first discuss the commands with which you can 
read a program from the diskette into the computer. Its simplest form is: 


DLOAD "program name" 
The D in DLOAD stands for "disk." DLOAD is just a special version of 
the familiar LOAD command in which you do not need to specify the device 
address. 


If the desired program is on diskette, it is loaded into the memory of the 
computer. If the program is not found, the computer responds: 


FILE NOT FOUND 
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This also happens if the DLOAD command is used in a program. In 
addition, the program is interrupted and the computer returns to the direct 
mode. 


You can try this command with the Test/demo diskette. Try to load the 
various programs from the diskette. To execute the program immediately 
after it is loaded, use RUN in place of DLOAD. 


The keys <SHIFT + RUN/STOP> offer a still greater ease of use. If 
you press them together, the commands DLOAD ":*" (in abbreviated 
form) automatically appears on the screen and after it "RUN". This causes 
the computer to read the first program on the diskette and run it. 


Naturally there are differences between the load commands in the 64 
and 128 modes. The most serious contrast is the transfer speed. In the C-64 
mode the characters are transferred over the bus at a rate of 400 characters 
per second, while they travel at a rate of 3500 bytes per second over the 
C-128 bus. In practice this means that a graphic picture is no longer loaded 
in 20 seconds, but in 3. 


In addition, the load command behaves differently when overlaying 
programs. While the C-64 normally "forgets" all of its variables, they all 
retain their values on the C-128. So you can easily divide large programs 
into several sections without problem. 
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1.2.4 DSAVE - Saving BASIC programs 


BASIC > 3.0: DSAVE "program name",Dx,Uy 


dS 










Abbreviation: 





BASIC <3.0: SAVE "x:program name", y 
optional Parameter: x 


Monitor: S"x:program name", yy,aaaa,bbbb+1 
aaaa/bbbb = Start & End addr. of program 


Parameters (optional): 


Dx: x= Drive (0/1) 
Uy: y= Device # (4-15) 





If a program is to be transferred from the computer memory to the 
diskette, we do it like DLOAD only here with the command DSAVE. If, for 
example, we want to save a BASIC program, we must find a suitable name 
for it. Let's assume it should be called minitest. The save command 
reads: 


DSAVE "minitest" 


The name may not be more than 16 characters long and a program with 
the same name may not exist on the diskette. In addition, there are some 
characters which may not be used in program and file names. These 
characters are control characters. If they are used, the program cannot be 
loaded because the drive will interpret the name as a command. Here are the 
prohibited characters: 


, : 2 * € €& @ 
If you have changed your program and would like to save the new 


version with the same name, you can precede the name with the @ character. 
For example: 
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DSAVE "@minitest" 


The special function saves the new version and then erases the old 
version. Therefore there must always be enough free space on the diskette 
to hold a copy of the new version. Unfortunately, there are problems with 
this replace function. If the diskette is almost full, the function will not work 
correctly and your program may be lost. You should therefore use the @ 
with care--or better yet, not at all. In BASIC < 3.0 as well as in the monitor, 
a colon must follow the @ in order to separate it from the program name 
(such as "@:minitest"). 


The save times on the 1570/1571 are not as fast as the loading time. 
Saving a program is no faster than on the 1541. In addition, saving is 
generally slower than loading because after each write the data must be 
checked to see if it was stored correctly on the diskette. 


Loading and Saving Times 


es 
C-64 10K Byte-program 027 {050 


C-64 10K Byte-file 


C-128 10K Byte-program| 0.93 


C-128 10K Byte-file 
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1.2.5 DVERIFY - Verifying programs 


BASIC > 3.0: DVERIFY "program name",Dx,Uy,z 


dV 










Abbreviation: 





BASIC <3.0: VERIFY "x:program name", y,z 
optional Parameter: x 





Monitor: V"x:program name",yy,aaaa 
aaaa = Starting addr. of program 


Parameters (optional): 


Dx: x= Drive (0/1) 
Uy: y= Device # (4-15) 
Z:Z= 0: relative load 1: absolute load 


This command verifies that a program on the diskette is the same as the 
one in the computer's memory. It compares it with the one found in the 
memory of the computer. If they match, the computer responds Ok. If not, 
the message Verify Error will be displayed. 


Historically DVERIFY originates from cassette usage. Because of the 
relative low reliability of cassette storage, it was advisable to verify the 
stored program. In this age of affordable disk drives, this function is really 
superfluous. 


The disk drive checks the data it has written to a sector for accuracy. 
Verify is automatically performed upon every write access by the 1570/71 
disk drive. This is also why saving a program takes somewhat more time 
than loading it. 


20 


Abacus Software 1571 Internals 





1.2.6 BLOAD/BSAVE - Saving/loading machine language 












BASIC > 3.0: BLOAD "program name",Dx,Uy,ON | 
Bz,Pa 
BSAVE "program name",Dx,Uy,ON 


Bz,Pa TO Pb 


Abbreviation: 








BASIC <3.0: LOAD "x:program name" y,1 
SAVE not available 
optional Parameter: x 









Monitor: L"x:program name", yy,aaaa 
S"x:program name" yy,aaaa,bbbb+1 
aaaa/bbbb = Start & End address of program 


Parameters (optional): 








[X= Drive (0/1) 
Pa: a= Starting address (decimal) 


Pb: b= Ending address (decimal) 
[y= Device # (4-15) 
Bank number (0-15) 


BLOAD, like the name says, is another load command. But we have 
already encountered DLOAD. Why do we need another command? 


The solution to this puzzle lies in the way in which data are loaded. 
With DLOAD, the program is always loaded at the start of the BASIC 
storage, regardless of the area from which it was saved. This isn't bad for 
BASIC programs. But programs which are written in machine language 
may not run if loaded with DLOAD. They can execute only in a certain 
memory area. Graphic pictures too must be loaded to the original location. 
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For this reason the start address of the program is always saved along 
with the program itself. BLOAD loads the program back at this address. 


The counterpart of BLOAD is BSAVE. This command is used to save 


arbitrary sections of memory. DSAVE saves ony the peor progtam 
located at the start of the BASIC Storage. 


The corresponding load and save commands of the monitor require you 
to specify a memory range for DLOAD. The monitor commands cannot be 
accessed from a BASIC program. This is the purpose of BLOAD and 
BSAVE. - 


These disk drive functions should not be ignored. They can be used to 
load sprites or graphic pictures into the proper memory locations. They are 
also used by the machine language programmer, who can load machine 
language programs more easily. In these applications, you should not 
deviate from the start address saved along with the program. Whenever 
possible, specify the parameter Pa. Then you can be certain that the data is 
loaded in the proper memory location. Otherwise the program may be 
loaded into an area with contains important parts of your current 
program--causing the computer to crash. 


One more thing is important. While the starting and ending addresses of 
the memory range must be given in hexadecimal in the monitor, only 
decimal values are allowed in BASIC. If you want to use hexadecimal 
specifications, you must use the command DEC (" "). The expression 
must be enclosed in parentheses. 


Furthermore the BSAVE command or the monitor Save command has a 
peculiarity. The contents of the last specified range address is not saved. So 
you should always specify the ending address+1. 
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1.2.7 DIRECTORY/CATALOG - Display the disk contents 








BASIC > 3.0: DIRECTORY Dx ON Uy,"name" 


CATALOG Dy ON Uy, "name" 







Abbreviation: diR / cA 





BASIC <3.0: LOAD "$x:name",y : LIST 


| Monitor: @y,x:$name 


Parameters (optional): 






Dx: x= Drive (0/1) 
Uy: y= Device # (4-15) 
name : search string for selection of files 







We've now saved and loaded programs several times. But what 
programs are now on the diskette? Under what name was the last program 
stored? We need to see the contents of the diskette. 


To save you from reaching for pencil and paper, the 1570/1571 disk 
drive automatically keeps a directory of the programs and files stored on the 
diskette. It may be displayed by using the CATALOG or DIRECTORY 
commands. But why are there two commands to perform the same 
function? This is also probably a sort of tradition (like DVERIFY) because 
both commands were implemented in the BASIC 4.0 of the CBM-8000 
series computers. Also, BASIC 7.0 is supposed to be compatible with all 
previous Commodore dialects. 


The parameters are standard except for name. If you specify this 
parameter, you can select certain files to be displayed. This only makes 
sense with wildcards, of which you learn more in Section 1.3.9. For 
example, it is possible to list only the entries whose name begins with "a". 
If the name specification is missing, the entire directory will be printed. 


Now to the directory itself. Let's take a look at an example: 
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SS 9 EP SESS TE EE GI A EAA TT OE SET LTE EE TOO ETE LE TT I 


@ PCHARTRAR 1268 B&B " LE 2A 

wl TRILL BOARD © MRIS 
4 TOHEE. CONF Tis” SEC 
Li CHF RE. FR. LS6" FRCS 
FO MEAP er Met PRG 
os RA eee ee FRG 
Y OCHRE RPE. OC” PRG 
a VCH Reh Mak PRIS 
i 'CHRE.FRD. CS" FRiS 
4 "CHEE. PRD. C&S" RRC 
SCHR. PRD. EP © PRG 
= VOPR et Deku @ FRG 
i VCHREE.,. PRD. EMS FRG 
j TORRE. PRD. OC" Fis 
i POH RE. PRD. PE! MrRG 
es TORFE.. PRINTERS © Sh 


The drive number, disk name, ID, and disk format are displayed in 
reverse in the title line. The drive for the 1571 is naturally always 0 since it 
is a single drive. The disk name and the two character ID follow. The 
identifier "2A" serves only to recognize which diskette format is involved. 


Next the contents are listed. First the number of blocks (sectors) 1s 
displayed. This gives an indication of how large the program or file is. After 
this comes the file name and finally the file type. This specification gives 
information about the type of the entry, whether it is a file, a program, or 
whatever. The standard file types are listed below: 


DEL =deleted entry 
PRG -=program 

SEQ =sequential file 
USR =user file 

REL  =relative file 


At the end of the listing is the number of sectors (blocks) which are still 
free on the disk. | 
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1.2.8 SCRATCH - Deleting programs and files 















BASIC > 3.0: SCRATCH "name! ,namez2,..",Dx,Uy 


Abbreviation: sC 


BASIC <3.0: OPEN 1,y,15,"SX:name1,name2,.." 
Monitor: @y,Sx:name1 ,named2... 


Parameter: 


name : Up to five filenames separated by 
commas 


Parameters (optional): 


Dx: X= Drive (0/1) 
Uy: y= | Device # (4-15) 


If you've stored a few test programs and now want to erase them you 
can use the SCRATCH command to do this. It deletes the entry from the 
directory and releases the blocks occupied by the program or file. 


Up to five entries can be deleted at a time. The names of the individual 
entries are separated by commas. 


It's a very short time between pressing the <RETURN> key and 
erasing the wrong file because you specified the wrong name. BASIC 7.0 
asks you to confirm scratches. If you're sure, press <Y>. Any other key 
terminates the command. 


When a program or file is SCRATCHed, it is not really erased or 
overwritten. Instead it is just flagged as deleted. It's possible to change this 
flag and thereby recover the file. A disk monitor which writes directly to the 
tracks and sectors of the diskette can be used for this. 
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After deleting, the following message is displayed on the screen: 
O01, FILES SCRATCHED, XX, 00 


The number XX indicates how many files were removed. This is 
especially important when using wildcards in the name specification. 


The SCRATCH command can naturally also be used in a BASIC 
program. The question "Are your sure?" is asked only in the direct 
mode, however. This question is omitted in the program. If you want to 
check the message in the program, you must request it from the disk drive. 
More about this in the next section. 


One further note. Files which are listed with an asterisk (*) in the 
directory may not be deleted with the SCRATCH command. The save 
process was interrupted when these files were being saved. Always use the 
VALIDATE command with "*" files to remove them from the diskette. 
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1.2.9 DS/DS$/ST - When an error occurs... 


BASIC > 3.0: PRINT DS / PRINT DS$ / PRINT ST 
Abbreviation: 2?DS / ?DS$ / 2ST 


BASIC <3.0: 10 OPEN 1,y,15 
20 GET#H1,A$:PRINT A$;:IFST<>64 
THEN 20 
30 CLOSE1 
RUN 


Monitor: @y y = Device #(4-15) 





"Only he who does not try, makes no errors." Have you ever made an 
error? Imagine that you want to load a program and forgot to insert a 
diskette in the drive. What does the disk drive do? Try it out once! 


Immediately the red (1570) or green (1571) LED starts to flash on and 
off. If the disk drive is in the 1570/1571 mode, the LED flashes twice as 
fast as in the 1541 mode. If the light flashes after power-up, the internal 
_ self-test routine found an error in the operating electronics. In this case 

consult Section 6.3.6 for help. 


So that you can determine the cause of the error, the disk drive stores an 
error message. This can be read via the variables DS and DSS. This is why 
these variable names may not be used in your programs. The error message 
can be read only once. After this the flashing LED on the drive goes out. 
The next time the error message is read, you will get the OK message. In 
BASIC 7.0 the last read is stored in DS/DSS$. The complete message is 
displayed on the screen with PRINT DSS. 


Let's take a look at the construction of such an error message: 


NN, MESSAGE, TT, SS 
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Every error has a number (NN). The exact cause of the error can be 
determined through this. Then comes the name of the error, such as "Read 
Error". The specifications TT and SS stand for track and sector number of 
the location at which the error occurred. The exact meaning of the error, the 
causes and possible solutions are listed in Appendix D. 


If you use just the variable DS instead of DS$, you get only a 
number--in this case the error number. This is often helpful when analyzing 
a message. If a command was executed without error, then the drive returns 
an "OK" message, which has the number 0. Naturally, the red/green 
(1570/1571) light does not flash then. In your programs you should always 
check to see if DS contains zero after disk commands or if an error 
occurred. This can be done through the following program sequences, for 
example: 


C-64 mode: 


10 open 1,8,15 : input#1,a,a$,b,c : close 1 
20 if a<>O then print a;saS;b;c : stop 
for all messages (including scratch) 


10 open 1,8,15 : input#1l,a,a$,b,c : close 1 
20 if a>19 then print asaS;b;c : stop 
for errors only (ignore scratch) 


C-128 mode: 


10 if ds<>0O then print ds$ : stop 
for all messages (including scratch) 


10 if ds>19 then print ds$ : stop 
for errors only (ignore scratch) 


Beside DS and DSS there is another variable that gives information 
about the current system condition, the variable ST. Naturally, you may not 
use this name for other variables either. The term ST comes from "status," 
and this is exactly the function of ST. This variable gives information about 
the status, the condition of the input/output system. The fact that this 
involves mainly the cassette recorder will not be discussed further here. The 
bits for the cassette are therefore omitted: 
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[Bi [Bee [Fureion 
0}  1)|Time-out by write | 
1 2 | Time-out by read 
6 | 64|EOlendofdata | 
7 | 128 |EOT end of blocks | 






For disk operation, only bits 0 and 1 as well as bits 6 and 7 are of 
interest. Bit 6 is called EOI, "End Of Information." This recognizes when 


the last character of a transmission has been sent (see DS$ for BASIC < 
3.0). 


Bits 0 and 1 indicate a time-out. If a device which is connected to the 
serial bus is addressed by the computer, it must answer within a certain 
time. Otherwise the computer will assume that the device is not ready. If the 
time span runs out (time-out), these bits are set. The reason for a time-out 
can lie in the fact that the device is suited only for sending or only for 
receiving data. 


The other possibility would be that the device (such as a disk drive) is 
not even connected. In this case the signal "EOT" will be set. EOT means 
“End Of Tape"; it is a cassette status signal which was transported to disk 
use. | 


The variable ST is correspondingly corrected after every disk operation. 
If the drive is not connected or is turned off, bit 7 of ST will be set. In this 
case the computer responds immediately with "Device not 
present". If the previous disk command was in a program, the program 
will stop--an annoying feature. But it is possible to check in a program if the 
drive is turned on, as the examples below show. In addition, you can 
determine if a diskette is present in the drive. 
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C-64 mode: 


poke 768,185 

open 1,8,15,"i" 

poke 768,139 

if st and 128 then print chr$(19)"Please turn 
on the disk drive":closel:gotol10 

input#1,a:close 1 

if a<>0O then print chr$(19)"Please insert the 
diskette": goto 10 


C-128 mode: 


10 
20 
30 


40 
50 


trap30 

open 1,8,15,"i":goto40 

if er=5 then print chr$(19)"Please turn on 
the disk drive":closel:gotol10 

closel 

if ds<>0O then print chr$(19)"Please insert 
the diskette": gotol10 
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1.3 Disk drive system commands 
1.3.1 The command channel 


As you learned in Section 1.2.1, the computer communicates with the 
disk drive via special channels. Naturally there is a separate data channel for 
the error messages from the previous section--the command channel. 


As the name says, this channel is responsible not only for errors, but 
also for commands. All disk commands except LOAD/SAVE/ | 
OPEN/CLOSE re sent over this channel. Since this is rather complicated 
(see BASIC < 3.0), there are separate disk commands in BASIC 7.0. These 
put together the pure BASIC < 3.0 disk commands and send them to the 
disk drive. 


These disk commands always consist of one character, which is an 
abbreviation for a function, like "s" for scratch. Then follows the drive 
specification, which is a remnant from the time of the dual drives on the 
large Commodore computers. The 1570/1571 is a single drive, so the drive 
number should always be 0 (device 8, drive 0). If you select drive 1 in spite 
of this, an error message will result. This syntax is not entirely senseless 
because Commodore is planning a double drive for the C-128 which will be 
called the 1572. Sometimes, however, the drive specification is required to 
select a specific function (see CONCAT command). 


If additional parameters, like filenames, must be specified, then a colon 
follows as a separator, followed in turn by the parameters. If the drive 
specification is omitted the drive always assumes drive number 0. This 
means that you can normally do away with a drive number specification 
(0/1) on the 1570/1571. You may not forget the colon, however, if 
additional data are to be transmitted. 


In BASIC versions < 3.0 the disk commands must always be sent to 
the drive via the command channel (except for LOAD/SAVE). In order to 
inform the computer that it should set up a certain channel to the disk drive, 
we use the OPEN command. This opens the channel for operation. The 
syntax to OPEN the command channel is: 


OPEN 1,8,15 
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The first digit (logical file number) is an arbitrary number between 1 
and 255 with which the channel will be designated. Next follows the device 
address of the drive, in this case this is the standard device number of eight. 
The last number specifies the channel number, here number 15 for the 
command channel. You can find more about the OPEN command in 
Sections 1.2.1, 1.4.1, and 1.5.1. 


Now you can send commands to the disk drive via this channel. If, for 
example, the scratch command is to be executed, then you must send 
"s:filename". The PRINT# command is used for this: 


PRINT#1,"s: filename" 


In this command we find the 1 from the OPEN command again. Since 
we assigned a number to the channel with the OPEN command, we don't 
have to give all of the specifications (device address, channel number, etc.) 
again if we want to send a message to a special channel--the logical file 
number suffices. 


One last detail you should know. Commands to the disk drive may not 
be longer than 41 characters. The internal buffer storage of the 1570/1571 
does not allow more. With very long filenames this sometimes leads to 
limitations, especially with the SCRATCH or COPY commands. You cannot 
SCRATCH three files with 15 character names with one SCRATCH 
command. This does not lead to real disadvantages--you will just have to 
divide a task up into several partial steps. 
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1.3.2 COLLECT - Organizing a diskette 


BASIC > 3.0: COLLECT Dx ON Uy 


Abbreviation: collE 










BASIC <3.0: OPEN 1,y,15,"Vx" 
optional Parameter: x 


Monitor: @y,Vx 


Parameters (optional): 


Dx: x= Drive (0/1) 
Uy: y= Device # (4-15) 





The COLLECT commands puts the diskette directory back in order. In 
detail, it involves the directory and the BAM, the table of free and allocated 
blocks, called the Block Availability Map. 


The COLLECT command first erases the BAM. Then the drive 
determines the sectors used by each valid file entry. These are designated in 
the BAM as allocated. Finally the new BAM is written to the diskette. In 
addition, the COLLECT command removes all invalid entries from the 
directory. Now just what are invalid entries? 


Such files are designated by an asterisk (*). They are created when an 
OPEN file is not CLOSEd or if a program is saved which is larger than the 
free space on the diskette. The saving process is then interrupted, an error 
message displayed and all previously free blocks are allocated--only the 
COLLECT command will reclaim them. 
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1.3.3 RENAME - Renaming a file in the directory 


BASIC > 3.0: RENAME "old" TO "new",Dx,Uy 


Abbreviation: reN 

BASIC <3.0: OPEN 1,y,15,"Rx:new=old" 
Monitor: @y,Rx:new=old 
Parameters: 


old: old filename 
new : new filename 


Parameters (optional): 


Dx: x= Drive (0/1) | 
Uy: y= Device # (4-15) 





With this command you can give an existing directory entry a new 
name. As you see above in the syntax diagram, this is not very complicated. 


Naturally this function is not just suited for beautifying the directory. It 
is particularly interesting when files are to be processed from programs. The 
files can all receive the same name. When changes are made, you must save 
the file under a temporary name and delete the old file. The temporary name 
is then changed to the name of the old file. Using this method you end up 
with one file in the end. You can use this technique not only for files but for 
programs as well. This way you don't get 100 versions of the program on 
the diskette, just the most current, and always with the same name. 
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1.3.4 CONCAT - Chaining files 








BASIC > 3.0: 







CONCAT Dx,"source" TO Dy,"target" 
ON Uz 


Abbreviation: cO 


BASIC <3.0: OPEN 


1,z,15,"Cy:target=y :target,x:source" 











Monitor: @z,Cy:target=y:target,x:source 













Parameters: 


target : file to be appended 
source : file to which target will be attached 


Parameters (optional): 


Dx: x= Drive (0/1) 
Dy: y= Drive (0/1) 
Uz: z= Device # (4-15) 


The CONCAT command allows you to chain a file to another one. The 
data of the source file is appended to the destination file. The source file is 
not deleted. 


This chaining works only with sequential files (SEQ or USR). Programs 
cannot be combined in this manner. 


The CONCAT command is actually a copy function and is therefore a 
type of copy command. More about this in the next section. 
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1.3.5 COPY - Copy files 





COPY Dx,"source" TO Dy,"target" ON 
Uz 


BASIC > 3.0: 









Abbreviation: 


BASIC <3.0: OPEN1.z,15 


PRINT#1,"Cx:target=y:source" 
CLOSE1 | 


Monitor: @z,Cx:target=y:source 


Parameters: 












target : name of new file 
source : name of old file 


Parameters (optional): 


Dx: x= Drive (0/1) 
Dy: y= Drive (0/1) 
Uz: z= Device # (4-15) 


This command copies individual files. This seems intelligent for a 
double drive, but what will it do on a single drive like the 1570/1571? 
Naturally, the application possibilities of the COP Y command are somewhat 
limited. There are, however, useful applications of the command. You have 
already become acquainted with one of these in the previous section in the 
form of the CONCAT command. 


With a single drive the COPY command can be used to chain files. A 
new file is formed out of two, three, or even four already existing files. The 
data of the source files are appended to the destination file in the order in 
which the names of the source files where specified. Only sequential files 
(SEQ or USR) can be combined in this manner. 
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Naturally program files can be copied as well. Only one source program 
is allowed. Programs cannot be combined in this manner. This is a problem 
which must be solved in the computer. 


Copying individual files still makes sense. If manipulations are to be 
performed on files, then this should often be tried out on duplicates first. 
With the COPY command you can create a copy of the original file. _ 


One aspect of this should not be overlooked: The destination file must 
have a name which is not present on the disk. But here too there is a special 
case. If for both the source and destination files you specify the drive 
number and use a name which already exists on the diskette, these file will 
be overwritten by the new destination file. The CONCAT command works 
according to this method. 


To copy a program from one diskette to another, you need a special 
copy program. Such a program is contained on the Test/demo diskette under 
the name "sd. copy.c64". You must load and start this program in the 
C-64 mode. It has the disadvantages of being very slow and difficult to use. 
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1.3.6 BACKUP - Duplicating diskettes 


BASIC > 3.0: BACKUP Dx TO Dy,Uz _ 2 
Abbreviation: baC 


BASIC <3.0: OPEN1,y,15,"Dy=x" 








Monitor: @z,Dy=x 





Parameters: 






Dx: X= Drive # of source disk (0/1) 
Dy: y= Drive # of target disk (0/1) 
Uz: z= Device # (4-15) 






This is the only command of the C-128 or 1570/1571 which cannot be 
used at all. BACKUP is intended to duplicate entire diskettes. The destination 
diskette-is formatted at the same time. This works only with a dual drive. 
On a single 1570/1571 drive, this is senseless. 


What do you do if you need to copy an entire diskette. You can make 


backup copies with a special backup programs. A copy program for 
backups is included in the "DOS SHELL" on the Test/demo diskette. 
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1.3.7 DCLEAR - Closing all channels 


BASIC > 3.0: DCLEAR Dx ON Uy 
Abbreviation: dclE 


BASIC <3.0: not available 
Monitor: not available 


Parameters (optional): 












Dx: x= Drive # of source disk (0/1) 
Uy: y= Device # (4-15) 





This command closes all of the channels to the disk drive. This is an 
internal function of the computer. The command does not send a "close 
channel" command (CLOSE) to the disk drive. Open files cannot be 
properly handled in this manner. To do this there is the DCLOSE command 
__ Sections 1.4 and 1.5). 


For file applications, DCLEAR has little use. You can, however, 
terminate CMD channels to the disk drive with it. These are data channels to 
which the normal screen output has been redirected to another device with 
CMD. This allows the output to be written to a disk file instead of the screen. 


If you use DCLEAR in your own programs, you must be sure that the 
input and output will take place on the standard devices. 
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1.3.8 BOOT - Starting the CP/M operating system 











| BASIC 7.0: BOOT "name",Dx,Uy 


Abbreviation: bO 


BASIC <7.0: not available 


Monitor: G FF88C (Track 0, Sector 1) 






Parameters (optional): 


Dx: x= Drive # of source disk (0/1) 
Uy: y= Device # (4-15) 





BOOT is a command with a double meaning. If parameters 
(name, ...) are given, then it behaves differently than when these are 
omitted. Let's first look at the BOOT command with parameters. 


The most important parameter is the name. The computer searches for a 
machine language program with this name in the directory and loads it in to 
the memory area specified by the file in the current bank (normally 0). 
Execution then begins at the starting address. You must ensure that the 
machine code makes sense at this address or the computer will crash. 


If you simply enter BOOT, the computer reads sector 0 on track 1. If the 
first three characters of the sector are CBM, then it is an autoboot sector. 
Otherwise the boot command is ended. 


The autoboot sector must contain a set of data and a Startup program. 
This is then responsible for performing additional actions. For a detailed 
study of the BOOT command, see the book 128 Internals from Abacus. 
Section 7.7 of that book explains the command in detail. The book also 
contains the relevant kernal listing. 
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"CBM"- marker for identification 

memory address of further boot sectors 

bank number for following sectors 

number of boot sectors still to follow 

text to be outputted after the message 
"BOOTING" followed by a zero 

name of program to load after loading the blocks 
followed by a zero 

machine language routine that is executed after 

loading 












If the boot message is specified, it is printed on the screen after 
"Booting". If no message is to be printed, the separator $00 must be 
placed in byte 7. After this a test is made to see if other boot sectors are to 
be loaded (byte 6 not equal to 0). If so, the data in bytes 3 to 5 apply. 


The boot command loads the program from the diskette whose name is 
given in the string following the boot message. 


Finally, you can write your own boot routine. The program is loaded 
into the cassette buffer in the computer and executed. The boot routine must 
be present because the computer will try to execute whatever it finds in the 
cassette buffer. A system crash will probably be the result. The CP/M 
system diskette is started with BOOT. The boot routine in track 1, sector 0 
switches the Z-80 on, which organizes the loading of CP/M Plus. 


As you have no doubt noticed, the BOOT command is automatically 


called after every reset or power-up of the computer. If an appropriate 
diskette is inserted in the drive, the boot sector will be loaded an executed. 
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1.3.9 Wildcards 


Up to now you have had to specify the whole name of the program or 
file to which a disk command is to refer. Let's assume that you have created 
various programs, say Test 1, Test2, and so on, and you want to delete 
all of these. You would have to enter all of the filenames--a rather 
time-consuming task. 


For this reason the disk drive offers the ability to abbreviate names or to 
address entire groups of names at once. The key characters are the asterisk 
(*) and the question mark (?). This is why these two characters cannot be 
used in filenames. They are called wildcards. 


First we'll talk about the (?) wildcard character. The question mark is a 
place holder for an arbitrary character. For example, if you enter TEST? in 
a SCRATCH command as a file name, all files whose name begins with 
TEST plus one additional character are deleted. Thus TEST1 , TEST2 and 
TESTy are deleted. There is no limit to the number of question marks that 


character in length. 


The second wildcard character is the asterisk (*) . If it is entered alone, 
the first directory entry on the diskette is selected. Entered following a 
combination of characters, the asterisk represents "I don't care" characters. 
For example, a* selects any file name that begins with the letter a and has 
any characters (or none at all ) following. 


A third wildcard is the equals sign (=) . This selects file types of a 
particular kind. To do this, the equal sign is appended to a file name 
specification followed by the first letter of the desired file type. For 
example, a*=p selects the first file whose name begins with a and is alsoa 
program file. 


Here are some examples of the use of wildcards and the equal sign: 


ax first entry which starts with "a". 
axcd as above. Everything after the asterisk is ignored. 
a? all two-character names starting with "a". 


22??* all entries with at least 3 characters. 
a*=s all sequential files which start with "a". 
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Wildcards may not be used with all disk functions. In addition, the use 
of wildcards has different results with different commands. The table below 
gives information about this. 


Command is wildcard | file chosen 
allowed? 


DLOAD / BLOAD | always first identified filename 
DVERIFY 


DSAVE / BSAVE new filename 
DIRECTORY all identified files 


SCRATCH all identified files 


RENAME given filenames only 
CONCAT / COPY 
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1.4 The sequential file 
1.4.1 What is a sequential file? 


There are basically two types of data files that can be managed on the 
1570/1571. These are sequential and relative files. The chapters on 
sequential and relative files discuss each in detail. 


Data storage on a diskette is comparable to the scrolls of biblical times. 
Historically, the first form of written record was the papyrus scroll. 
Information is written on the scroll in a strict start to finish order. To find a 
given piece of information, you would begin to search through the whole 
scroll. If you want to add information, you must add it at the end of the 
scroll. Insertion in the middle of the scroll is not possible. This very simple 
method of data storage is also found on computers. This concept is referred 
to as sequential file storage. 


For an example, let's set up a file containing names and birth dates. In it 
we'll store the first and last names of our acquaintances and their birth 
dates. For example: : 


Harvey Miller 3/1/1966 
Tom Schneider 7/24/1952 
Jean Schmidt 9/2/1967 | 


As the name indicates, the data is stored sequentially. In a sequential 
file, data items are stored one after another. As a consequence these data 
items must be later read in this same order. If we've written the above data 
to a sequential file and want to find the birthday of Jean Schmidt we have to 
skip over the data of Harvey Miller and Tom Schneider until we get to Jean. 


How does the computer recognize the end of a name or a birth date? 
Let's ask how we do that without a computer? Now it's easier, there's a 
space between the data items. We could program the computer such that it 
interprets spaces accordingly. But if someone's middle name is ever 
entered, such as "Harvey James Miller," then our program doesn't work 
anymore, since we have four items on a line instead of just three. 


To overcome this problem we simply use a different character to 


separate the data. For computer files this is usually the ASCII value 13. You 
probably recognize this value already. It has the same code as the 
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<RETURN3> key. But it is also the character that causes the cursor to jump 
to the next line (carriage return). The RETURN character will be called 
“carriage return" or simply "CR" from now on. 


A sequence of characters which is ended with "CR" is called a data 
field. Several data fields together make up a data record. In our case the 
names and birthdates would be the individual data fields, which together 
form a data record. The file would then have three data records. The data 
records can be distinguished by using another separator. Normally this 
separation is handled by the program logic, however. This means that the 
program knows exactly how many data fields each data record has and can 
therefore tell the start and end of a record. 


1.4.2 Opening a file 


Now we want to put the example from the previous section into practice 
and build a sequential file. To do this, we must first tell the disk drive what 
the file is to be called, what type it will be, and so on. You are already 
familiar with the command required for this--the OPEN command. Let's take 
a look at the syntax of this command: 


OPEN x,y,z,"a:name,b,c" 


The parameters x, y, and z are the logical file number, device address, and 
secondary address, which we discussed in Section 1.2.1. "a: " is the drive 
number, which can always be omitted on the 1570/1571. Next follows the 
name. The only limitations are that a filename may not exceed 16 characters, 
and that it may not exist already on the diskette. 


Next follow the important parameters for the file management. The ,b 
is the file type and , c is the file mode. For a sequential file the file type 
must be s. Then comes the operating mode. If the file is to be set up for 
writing, that is, for the first time, a w (for write) 1s specified here. 


As you have probably noticed, the BASIC < 3.0 syntax is used above. 
Naturally, there is also a BASIC 7.0 command which is easier to use. You 
should be familiar with both commands. BASIC 7.0 sends nothing more to 
the disk drive than the BASIC 3.0 command string. Now the equivalent 
BASIC 7.0 command: 
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DOPEN#x, "name",Da,Ux,b 


AS you can see, the z parameter is missing. The secondary address for 
files must be between 2 and 14. The computer selects this automatically. 
The device address Ux may also be omitted for drive 8. Dx is also 
superfluous since the 1570/1571 is a single drive. Thus the command 
usually reduces itself to: 


DOPEN#x, "name",b 


The logical channel number x must be retained, however. This 
determines in the individual outputs to which file they will go. Use only 
numbers between 1 and 127. Values between 128 and 255 have the result 
that a linefeed (ASCII value 10) will be added to the carriage return after 
each output. 


Now back to our example--the birthday file. Open this file with: 
DOPEN#1, "birthday",w 


Now the disk drive goes into action. First it checks to see if the name is 
already on the disk. This would result ina "File Exists Error". 
This is why it is advisable to check the status variable DS after the DOPEN 
command. If it is 0, you can be sure that the file was opened successfully. 


The red (1570) or green (1571) LED stays lit as long as the file is open. 
It tells that you may not remove the diskette from the drive in the meantime. 
The disk drive is now waiting for data from the computer. The light will not 
go out again until the last active file was been closed again. 
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1.4.3 Storing data 


After the file has been opened successfully, we can now write the 
individual data fields into the file. The same command which outputs 
information on the screen is used for this--the PRINT # command. 


It is modified a bit for the output via data channels, since you must also 
know over what channel the data are to go. It is therefore called: 


PRINT#x, "data" 


The abbreviation for the PRINT # is therefore not the question mark and the 
#, but pR. You must note this when entering programs if you make use of 
the abbreviations. Our birthday file would contain the following command 
sequence: 


10 DOPEN#1, "birthday",w Open file 
20 INPUT "first name ";a$ Input data 
30 INPUT "last name ";b$ into variables 


40 INPUT "birthday ";c$ 
50 PRINT#1,a$;CHRS (13) ;b$S;CHRS (13); c$ Write data in file 


As you see, we must separate the individual data fields with a CR, 
which is created with CHRS (13). But why is it missing after the last data 
field, the birthdate? Quite simple--the PRINT# command sends it itself 
automatically. With logical channel numbers over 127, it will also send a 
linefeed character. There are also cases in which this automatic linefeed is 
not desired. Then you must simply terminate the PRINT# line with a 
semicolon (;). The computer then knows not to output a CR. 
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Once all the data is entered into the file, you may not simply remove the 
diskette from the drive. The drive must end the sector chaining, count up the 
blocks used, and note this in the directory. If all of this has been successful, 
then the directory entry of the file will be designated to indicate that the file 
has been closed successfully. 


This function to do all this is called with the CLOSE command. Its syntax is: 
DCLOSE#x ON Uy 


The x is again the logical number of the data channel to the file. The 
device can be selected with y. This can be omitted if the device address is 8. 
But even the channel number is not always necessary. The command 
DCLOSE alone closes all currently open files. A maximum of 10 can be 
managed on the C-64/C-128 at once. You will hardly be able to use all of 
these since no more than three sequential files can be processed at once. 


In BASIC < 3.0 there is only one command to close a very definite file. 
But there is a trick here too. If one closes the command channel, then the 
disk drive will automatically close all other channels and files as well. So 
simply open the command channel at the beginning of your BASIC < 3.0 
programs. When you then close it again, it has the same effect as DCLOSE. 


If you forget to close the file, then the data will still not be lost. You 
will discover how to rescue it in the next section. 
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1.4.5 Reading from a file 


Just storing data by itself isn't terribly interesting. You also want to be 
able to do something with it. This is why there are more commands for 
processing the data in files then there are for writing data in files. 


To process the data you must open the file again, now for reading, of 
course. There are two different modes for doing this, one for normal 
reading and special mode with which you can recreate improperly closed 
files. 


In order to read normal sequential files, the operating mode must be r 
(for read). The computer automatically assumes this if no w is given. The 
birthday file is once again available after, 


DOPEN#1, "birthday" 


In order to now read the data into the computer, there are two options, 
the GET# command and the INPUT# command. The simpler of the two is 
the GET# command, so we will discuss it first. 


The command, like its counterpart PRINT#, was modified somewhat 
for file management. You must specify the channel number of the file to be 
read from. The syntax of the command is: 


GET#x,aS 


Just as the normal GET command reads a character from the keyboard, 
here a character is read from the corresponding file. The disk drive starts at 
the beginning of the file and reads character by character to the end of the 
file. 


You cannot read any arbitrary character in the file in this manner. This 
shows you one of the disadvantages of sequential files. 


Turning back to our example, you could read the individual data fields 
back in again in the following manner: 


10 DOPEN#1, "birthday" 

20 GET#1,zS:aS=a$+z$:IF zS<>CHRS (13) THEN20 
30 GET#1,zS:bS=b$+z$:IF z$<>CHRS (13) THEN30 
40 GET#1,z$S:cS=c$+z$:IF zS<>CHRS (13) THEN4O 
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50 PRINT "last name : ";aS$ 
60 PRINT "first name : ";bS 
70 PRINT "birthday : ";c$ 


In the program above, characters are read from the diskette until a 
separator "CR" occurs. All of the character read up to that point (including 
CR) are then assigned to a string variable, which can then be processed 
a (a$,b$,c$). The individual data fields can be separated with this 
method. 


How do you find out when the last data field, the last data record has 
been read? The status variable ST, discussed in Section 1.2.9, is used for 
this. Bit 6 of this status variable has the value 1 if an EOI signal was 
transmitted. EOI means End Of Information. The bit therefore tells us when 
the last character has been sent. The test to see if this bit has the value 1 
could look something like this: 


IF ST AND 64 THEN ... 


Make sure that you place a space between ST and the AND command or 
the computer will interpret it as "s TAN ad", and we don't need the tangent 
in our case. The IF command branches when the last character has been 
sent. If you want to program a loop that will be exited when the last 
character has been read, that is, branches when EOI is not set, the line must 
read as follows: 


IF NOT ST AND 64 THEN ... 


You must note one thing yet. The GET# command reads everything, 
including control characters, with one exception, the ASCII value 0. It is 
not transmitted. If a character is equal to CHR$ (0) , nothing will be sent. In 
this case you will get an empty string. You must always keep this behavior 
of the command in mind when programming. The following step is always 
recommended: 


GET#1,aS$:IF aS=""THEN aS=CHRS (0) 
Or 
GET#1,a$:aS=LEFTS (a$+CHRS (0) ,1) 


Even with this small advantage, the GET# command is a model pupil in 


contrast to its colleague, the INPUT# command. There are many special 
cases and possibilities for error when using INPUT#. 
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The INPUT command has been adapted for data channels and is now 
worded: 


INPUT#1,a$ 


This INPUT # command behaves just like the INPUT command that 
takes input from the screen. Naturally, the inputs cannot be arbitrarily long. 
A string cannot accept more than 255 characters. But as you have already 
determined with normal input, the termination actually comes much earlier. 
This has to do with the fact that the computer stores all input in a buffer 
before it processes it. And this is only 88 characters (on the C-64) or 160 
characters (on the C-128) long. If more than 88 or 160 characters are read 
with the INPUT# command, an error message will result. This is, logically, 
worded "String too long." We must be sure that this error does not 
occur or the computer will terminate the program. This also leads to the 
question of how long an INPUT# instruction will actually continue to read 
characters from a file. 


This works just like screen input. When the CR code is sent, which is 
done when you press the <RETURN> key in normal input, the INPUT 
command ends the input sequence. The problem lies in the fact that 
individual data fields may not be longer then 87 or 159 characters and a CR 
must be at the end. It is the job of the program to make sure of this. You as 
os programmer must ensure that the data fields do not become longer than 

iS. 


But this is not enough. The operating system places other stones in 
your path. These are the characters ":",",", and";". These are normally 
used in BASIC to separate commands and parameters from each other. The 
INPUT # command does the same thing when it encounters these characters. 
If a colon, comma, or semicolon occurs in data field, the INPUT# 
command behaves as if it had read a CR--it terminates the input and 
assumes that the data field is done. And as an encore from the operating 
system you getan "Extra ignored error." 


You must pay attention to more than just these three characters. If you 
read numbers with INPUT#, such as with INPUT#1, a it can lead to more 
problems. This is always the case when characters other than digits occur in 
the data field to be read. The computer announces this immediately with 
"File Data Error." Youcan prevent this only by making sure that 
you have stored a data field of the same variable type in which you want to 
read it in again later. 
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You have probably asked yourself why there is an INPUT# command 
at all, given all of these disadvantages. The answer is simple--it is faster 
than the GET# command. The reason for this is that the disk drive must be 
readdressed before each message. With the GET# command this happens 
for every character, while the procedure is required only once per string for 
the INPUT# command. In spite of this you cannot ignore the GET# 
command. It is required whenever the INPUT# command would fail. 


The second mode for opening a file is the modify mode. This mode 1s 
used so that improperly closed files can still be read. These are all files 
which are designated with an asterisk in the directory. In order to rescue 
such files, one opens them with (for example): 


OPEN 1,8,2,"file,s,m" 


As you see, this is again the BASIC < 3.0 command. This is because 
BASIC 7.0 does not recognize the modify mode. 


In order to rescue data from an improperly close file, open a new file, 
read the data in the modify mode from the unclosed file and write it to the 
new one and then close this one properly (CLOSE). 


The end of an improperly closed file can, like a normal file, be 
recognized with the status variable ST. There is a problem with this, 
however. Since the file was not closed, the end marker for sector chaining 
was also not placed. For this reason you will almost certainly read more 
data than were actually written. These data come from other sectors which 
were randomly chained into the sector sequence. The only thing that can be 
done about this is to process the data manually afterwards. 


At the end you must delete this unclosed file. This can be done only 


with the COLLECT command (Section 1.3.2). The SCRATCH command 
would free the wrong sectors because of the erroneous sector chaining. 
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1.4.6 Appending data 


Usually just storing data once in a file isn't enough. New data keep 
arriving that must be added to the sequential file. To do this one must read 
the entire file into the computer and then store it as a new file. The new data 
are then placed at the end of the file. 


This procedure is very time-consuming. For this reason there is a 
special disk drive function to append data to a file. If a file is opened with 
the operating mode "a" (append), data can be added to the file. There is a 
separate command for this in BASIC 7.0: 


APPEND#x, "name",Dy,Uz 


The specifications x, y, and z represent the logical file number, drive, 
and device number, which you are familiar with from the other commands. 
The "name" is the name of the file which you want to expand. It can also be 
given with a wildcard. The disk drive then simply selects the first suitable 
entry. For our example application, the command would be as follows: 


APPEND#1, "birthday" 


All data which will be written to the file, as explained in Section 1.4.3, 
will be appended to the end of the existing file. The append function can 
create a problem because when the append function is called the disk drive 
will assign at least one more block to the file. This happens only for the 
block specification in the directory. This means that the number of used 
blocks in the directory does not match the blocks actually allocated to the 
file. You can determine this by adding up all of the block specifications in 
the directory; you will get a different value than the directory indicates when 
you subtract the number of free blocks from the total capacity, 664 blocks. 


So the APPEND# mode is not completely error free. It must be ended 
with CLOSE, just like the DOPEN command, so that the file is properly 
closed. If you forget this, then not only are the added data lost, but the 
entire file as well. This also occurs if there is not enough space on the disk 
for the additional data, the disk drive returns a "Disk Full" message. 


For this reason you should probably use the CONCAT command from 
Section 1.3.4. This command appends a sequential file to an existing file. 
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The advantage of using this method lies in the fact that you don't have 
to touch the old file at all. You store simply store the new data in a 
temporary file. The method functions exactly as described in Sections 1.4.2 
to 1.4.4. 3 | | 


Once the new data are placed in the temporary file, it can be appended to 
the existing file. In practice this could look like this: 


10 DOPEN#1, "temp",w 
... Program section to write data in file ... 


50 DCLOSE#1 | 
60 CONCAT "temp" TO "birthday" 
70 SCRATCH "temp" 


This method 1s significantly safer than an APPEND procedure. The only 
disadvantage is that there must be enough space on the disk so that the old 
file "birthday" and the temporary file "temp", as well as the new larger 
file "birthday" can be stored on it. The reason for this is that first the 
new file "birthday" is written and then the old file "birthday’" is 
erased. Finally, "temp" can be removed because the data from "temp" are 
now in "birthday’. 
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1.4.7 Using sequential files 


As you have already learned in Section 1.4.1, the sequential file is the 
simplest form of data storage. The data is stored one after the other, that is, 
sequentially. The data is read back in the same way. 


With the CMD command, the normal screen output can be redirected to a 
data channel. And why shouldn't that be a channel to a sequential file? In 
this manner you can output program listings to a file. These could then be 
edited with your word processor, among other things. 


The sequential file is always useful when you must store data 
temporarily or it is not necessary to have free selection in data access. With 
sequential storage, the entire file must be read until you have found the right 
entry. This can take a long time for large files. 


An alternative would be to first read the entire file into the computer. 
Then you could access the data as desired, if you have placed them in 
indexed arrays. In addition, access to variables in the computer runs much 
faster than reading from the diskette. This area of data processing would 
exceed the scope of this book. I refer you to the BASIC tutorial books listed 
in the bibliography for more information. 


Storing all the data in the computer's memory has one big disadvantage. 


As large as the memory may be, it is not inexhaustible. The maximum size 
of a file would be limited to the memory space in the computer. 
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1.5 The relative file 
1.5.1 What is a relative file? 


As you have seen in previous sections, the sequential file is a practical 
way to store files but is far from optimal. A really capable data form must 
offer the following characteristics: 


ability to select every data record 

ability to delete individual records 
avoid having to read the entire file 

ability to read and write to the file 


The 1570/1571 allows you to use the relative file .- 


Let's turn back to our example from Section 1.4.1. There we compared 
a sequential file to a papyrus scroll. If we extend this example to relative 
files, then we could compare it to an empty book. You can enter information 
on any page of this book. The book can be opened to any arbitrary page. In 
this manner you can access any desired data record. This is just how a 
relative file behaves. | 


With a relative file you must define the exact length of each data field, 
and therefore each data record, before the file is written. To access the 
2031st data record, for instance, is not a problem. The disk drive can 
calculate the position in the file from the fixed data record lengths and the 
number of the data record. Actually, like the book, the data record is already 
predefined. Each page can store a very specific set of characters. Normally 
we don't use the entire page of the book, if you assign each data record its 
own page. 


Now you see the dilemma of data processing. Either we store data 
sequentially and make optimum use of the disk capacity, since no space 1S 
lost between data records, or we define a fixed data record length and some 
of the space on the diskette is lost. But the advantage gained is that you can 
select any data record since its possible to calculate its exact position. 


Back to a concrete example, the birthday file. As we said, each data 
record must have a fixed length. To do this you predefine the exact lengths 
of the individual data fields in the record. The lengths should be chosen 
such that the data will fit in the field. Naturally there can be cases in which 
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the name, for example, is too long and doesn't fit in the data field. On the 
average, however the individual data records will never be completely used 
up. You must select your record lengths between these two extremes. We 
have done this as follows for our birthday file: 


First name 15 characters 
Lastname 10 characters 
Birth date 10 characters 
unused 5 characters 
total 40 characters 


You may have encountered the specification "max. size" in your instruction 
manual. A relative file may be up to 167132 bytes large--even if the diskette 
is double-sided. The is a limitation of the disk operating system, which 
cannot manage larger relative files. 


To use the entire capacity of the relative file, we can store a total of 
4178 data records of 40 characters each. 


1.5.2 Opening a file 


We want to establish a relative file. This is no more difficult than for a 
sequential file. The difference is that you must define the data record length. 
Values between 2 and 254 characters are allowed. This is set with the 
operating mode "1" (length). This lets the computer know that it is 
working with a relative file. | 


It is no longer important whether a file is opened for read or for writing. 
This distinction does not apply to relative files. You can overwrite, append, 


or read records to your heart's content. The DOPEN# command for our 
birthday file is: 


DOPEN#1, "birthday", L40 
_ An entry is again placed in the directory. If the relative file already 
exists on the diskette, the length specification "L40" can be omitted. But it 


can also be specified. It must match the data length that was defined when 
the file was first opened. 
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In addition, when you open the relative file you should consider 
approximately how many data records will be contained in it. Then select 
the last expected data record and write CHR$ (255) to it. Through this 
procedure the disk drive then allocates all previous data records. This 
process can take up several minutes. 


__ The advantage of doing this lies in that you can be certain that the 
diskette space will not be used for other storage causing your relative file to 
run out of room. : 


1.5.3 Storing data 


First we need a command with which we select what data record the 
write operation will refer. This command is: 


RECORD#x, y, Z 


In order to be able to access a certain record, the data records have 
numbers running from 1 to a maximum of 65535. You will hardly need this 
enormous span. Any relative file whose data records are more than 2 
characters long will never reach this maximum--the disk capacity will be 
exhausted first. 


Now on to the parameters of the RECORD # command. The number x is 
the logical file number, exactly the same number as for PRINT# or 
INPUT# command. Then comes the record number. Finally, the current 
position within the data record is specified. A read or write operation would 
then start at this location. You can use this function to set the position 
pointer to a data field within the record. 


The PRINT# command is again available for storing the data. This is 
used just like is was with sequential files (see Section 1.4.3). The only 
thing which you have to pay attention to is not to output more data than will 
fit in the data record. If you try to write beyond the end of the record 
anyway, the data is ignored and the disk drive will return a "51 
Overflow in Record" message. Check the error variable DS to make 
sure. 
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1.5.4 Closing the relative file 


In contrast to sequential files, the DCLOSE command is not as crucial 
with relative files. At least your data isn't immediately lost if you forget the 
DCLOSE command once. 


The sector chaining of the relative file is set up when the file is opened 
or extended. This cannot be disturbed if the file is not closed. 


The blocks used by the file are also always placed in the appropriate 
table in directory. It is not possible for other files to accidentally overwrite 
the relative file. For this reason, a relative file is never marked with an 
asterisk in the directory. It is always fully functional. 


In spite of this, you should not omit DCLOSE. It has another function. 
When the file is closed the disk drive determines the number of blocks 
allocated and updates the directory entry. 


Therefore do not omit DCLOSE. We merely wanted to point out that the 
relative file is more tolerant of errors. 


Beyond this, the disk drive announces not only errors, but also makes 
available messages when the file is expanded, the record does not exist, the 
disk is full, and so on. 


1.5.5 Changing a record 


Data is usually short-lived. For this reason it is important that the data in 
a file can be changed. This is rather involved for a sequential file. 


The relative file does not have any of these limitations in this regard. 
You may use read and write operations arbitrarily. To change data you need 
only set the record and position of the change with the RECORD# command. 
With PRINT# you write over the data field or record. 


With the PRINT# command you must under certain circumstances, 
specify a semicolon after the data. This suppresses the output of CR, which 
would otherwise be written in the data recor 
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1.5.6 Appending new records 


A relative file can be expanded up toa maximum size of one disk side. 
You need only access the required data record with RECORD # and write it. 


Especially important when expanding is the error message "50 
Record not present." When writing, the error message can be 
ignored (it also arises when first writing to the data record). It signals only 
that the data record accessed did not exist before and is being constructed. 


__ You may not ignore this error message when reading, however. The 
disk drive is indicating that an attempt was made to access a data record 
which is not present. 


1.5.7 Finding a record 


Searching for data is a troublesome problem. You could easily fill an 
entire book with this topic. One reason is that there is no optimum solution. 
So the experts have come up with 1001 ways to order, search through, and 
manage data. There are many more or less practical management methods. 
No universal method has yet been found. For this reason we can only begin 
to look into the problem. If you would like to work with this more 
intensively, you will find corresponding references in the bibliography. 


The main problem with relative files lies in the fact that each data record 
can be accessed only by the record number. In our example, the birthday 
file, this method is not terribly useful. You will look either for all persons 
which have a birthday on a certain date or you would like to find the data of 
a specific person. 


Naturally, you can start assigning numbers to your relatives. This may 
work for 007 because of the notoriety of the number. But does Aunt Clara 
have number 102 or 93? Or, when you think of Aunt Clara in the future, do 
you want to speak only of number 1652. You need then only make sure 
than when planning the birthday party of 672 to ask 7362 about the 
well-being of 373 and her daughter 6297... 


The problem is clear. Numbering the records is very practical for the 
computer, the master of juggling numbers. But humans can't do it. 
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Now to the solution of the problem. Our first thought wasn't so dumb. 
Each name is assigned a number through the record number. We need a list 
with the names or the birthdates in which the corresponding record number 
is assigned. The relative file is basically the same, only it functions in 
reverse. 


In order for the searching to be somewhat efficient, the names should 
be ordered. So we write a program which reads the names and the 
corresponding record numbers from the relative file and sorts them 
alphabetically. This data is then read into the computer each time the file is 
to be used. Now it is possible to find the desired name quickly. The record 
number is included so that you can read the remaining information from the 
diskette file. 


Let's look at this somewhat differently. Basically it depends on sorting 
the records. Only then does the search run fast enough. There are also more 
refined search methods. In the relative file the data is stored unordered. The 
idea of sorted names and associated record numbers is really not bad. But 
then we have an additional file, we need more storage space, storage in the 
computer, and so on. Although the access time is quite fast, a great deal of 
time is required for the additional work (sorting, reading the sorted list, 
etc.). 


If we look at it closely, we see that it involves only knowing in what 
order the data records must be called from the diskette so that they are 
ordered according to a certain criterion. This criterion can be the name, the 
date, or any data field in the record. This is called the key. Seen this way, it 
is not necessary to prepare an ordered list with names and record numbers. 
It would suffice to sort the record numbers. The first number then 
corresponds to the alphabetically sorted first name, the second corresponds 
to the alphabetically sorted second name, and so on. This method always 
involves creating another file--usually a sequential file. The memory 
requirements, on disk as well as in the computer, would be smaller since 
you save the space required for the names. 


This has one disadvantage, however. Here it is necessary to read the 
data in the key file before accessing the information in the relative file. 


Since the key file is now sorted, you can select a position in the 
alphabet (such as the fifth name) get the record number of the name. But 
basically we only want to know which record is the first, which is the 
second, and so on. The key file need specify only which record is the next 
in the alphabet. 


61 


Abacus Software 1571 Internals 


In this case we speak of something called a pointer or index. We simply 
place a number in each data record. This is the record number of the next 
record in alphabetical sequence. The individual records are then chained in 
this manner. And what do you place at the end? You can either specify the 
number of the first record again, or assign it a zero. There is no record 0, so 
your program can always recognize the end. 


__ Naturally, all of this functions in reverse. You can set up another chain 
in which the names are sorted in reverse order. This gives you the capability 
to call the previous record as well as the next record--it doesn't get any 
easier. 


There is one thing we can't do without: the record number at which this 
chaining begins must be saved. You can, of course, set up a sequential file 
for this. But it would be more practical to have a file begin at the second or 
third record. Then you can use the first or second record for such 
information. This method of organization is the business of your program. 


If the relative file is to be chained, you must plan enough room for the 
chaining pointers in each record. Naturally, one can also chain the file later. 
To do this, place the pointers in parallel relative file organized in the same 
manner. This requires little additional storage space. But on the 1570/1571 
you can open only one relative file at a time. You must always close the 
main file, then open the chain file, read the key data, then close the key file 
again, and open the main file--this is not only a lot of programming work, 
but is also very time-consuming. 


We have now created some nice chains. But what happens if we want 
to insert a new entry into the file? This is no problem. The new record is 
simply placed at the end of the file, since the physical location in the file is 
irrelevant. Now the record must be inserted into the chain correctly. To do 
this you search for the location after which the record must be inserted in the 
chain. Then you read the number of the next record. This is entered into the 
new record. The record after which the insertion will be made receives the 
pointer value of the new record. 


The effort increases considerably with the number of chains, that is, the 


number of keys. Therefore you must be careful how many and what keys 
the files is to have. 
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1.5.8 Using relative files 


After all of these theoretical considerations, we want to start putting 
these things into practice. The topic was a birthday file. We established the 
length of the key in Section 1.5.1 already. 


But this brings up the next problem. We also need space for the 
chaining pointer. How large is this? A number variable is always stored as a 
string. That means that it can be between one and five characters long (for a 
maximum of 65535 records). So there must be space for 4-5 characters, 
although fewer will often be used. 


Here we use a little binary math. Each number between 65535 can be 
converted into a 2-byte binary number. So we need exactly two bytes per 
data record for our chaining pointer. The conversion is not that difficult: 


a = chaining pointer (0..65535) 
PRINT#1, CHRS(a and 255) CHRS(a/256) 


Converting the value back works like this: 


GET#1,a$ : GET#1,b$ 
a = ASC(a$+CHRS(0)) + ASC(b$+CHR(0)) * 256 


Let's assume that the name and the date should be used as keys. You 
have probably asked yourself how you now sort the file and effect the 
chaining. If you want to install the chaining on an existing file, this is not 
terribly simple. For this reason you should establish the keys at the outset. 
Then you proceed exactly as for appending, which we described in the 
previous section. 


Let us now turn to the individual data records. The record length must 
be defined--we won't be able to alter that. But this does not mean that you 
must set the length of the data fields in this manner. This is naturally 
simpler. 


This consideration has much to do with the read commands used. Do 
you want to use INPUT# or GET#? With INPUT# the data fields must be 
terminated with CR, which takes up additional room. This has a pay off, 
however because you can use variable data field lengths very easily with 
INPUT#. 
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Every data field is then terminated with a CR. When saving the data you 
must be sure that the field lengths do not exceed 88 or 160 characters. If the 
field is empty, then you simply save a CR. The advantage is that the 
problem of data not fitting into a field rarely occurs. There is only the 
danger that the length of all of the data fields, including the CR characters, 
which you must not forget, may become longer that the record length. You 
should calculate the total length in your program and request the user to 
shorten the input if necessary. The disadvantage of variable fields is that 
you must read all of the fields from the start of the record in order to reach a 
given field. With set field lengths you can set the pointer to the current 
character position with the RECORD # command. 


Examples of this topic are found in your disk drive instruction manual. 
The purpose of this chapter was not to offer you the ultimate solution--there 
simply isn't one. Instead, we wanted to give you some tips and suggestions 
for your own programming. 
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2.1 The direct access commands 


2.1.1 Direct access to individual sectors 


The 1570/1571 has a set of powerful commands that let you access the 
data on a diskette by sector. If you use these types of commands, you will 
have to perform any data management functions yourself. This is in 
contrast to the sequential and relative files in which the DOS manages the 
data for you. 


By using the direct access commands you can build your own data 
management system. Of course, you will have to do much more work than 
is you are using sequential or relative files. 


Section 2.1.2 discusses the commands. Sections 2.2 and 2.3 talks 
about the organization of data on the diskette. By discussing these topics, 
you may be able to borrow ideas for use in your own data management 
system. 


We advise you to use a new blank diskette before you experiment with 
the direct access commands. Then you'll avoid the possibility of destroying 
important data. 


From Section 1.1.2, you know that a diskette is organized into tracks 
and sectors. Since the circumference of the outer tracks is greater than that 
of the inner tracks, more sectors will fit onto the outer tracks. The tracks are 
numbered beginning with the outside tracks. Therefore track 1 is the 
outermost track and contains the most sectors. The innermost track is 35. 
Theoretically, the 1570/1571 can access up to 40 tracks. These last five 
tracks are not used in the Commodore formats, however. 


A disk formatted in this manner has a capacity of 170K. This is the case 
with the 1570, for example. The 1571 has two read/write heads and can 
therefore access both sides of the diskette. As a result, the capacity is also 
twice as large. But on a double-sided disk there would suddenly be two 
tracks with the number 1, one on each side. How does the disk drive know 
what side a given sector is on? To solve this problem the first track on the 
second side of the diskette is numbered 36 and increases to 70. 


) 
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The following sector numbers result: 


Number 






If you can instruct the disk drive to read a sector from the disk, the 
question arises, what to do with it once it is read? Since the disk rotates at 
300 RPM, the individual characters will be read at a speed of 60,000 
bytes/second. A BASIC program cannot process such rates of data transfer. 
The sector must be stored temporarily so that you can process it with normal 
commands. It is no different for writing a sector. 


The disk drive has 4 buffers, each exactly 256 bytes long, the length of 
a sector. This memory is used when you load programs, work with files, 
and so on. The following table indicates the number of buffers which each 
type of file requires: 


relative file 3 buffers 
load/save program 1-2 buffers 
sequential file 1-2 buffers 
directory 1 buffer 
direct access 1 buffer 


Now you can see why two relative files cannot be open at the same 
time--there are not enough buffers. In the age of cheap memory it is quite 
rare that a disk drive would have only 1.25K of buffer storage. But this is 
the case with the 1570/1571. 


To be able to access arbitrary sectors, we must reserve a buffer for 
ourselves. This is also called the direct access method. It involves first 
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setting up a data channel for the direct access. This is done with the 
following command: 


OPEN x,y,z,"#a" 


Theoretically you can also use the BASIC 7.0 command DOPEN. But 
since you must specify the secondary address z later, it is more practical to 
use the BASIC 3.0 command. The secondary address is automatically 
selected by BASIC 7.0. The parameters x and y give the channel number 
and the device address. | 


A'"#" is specified as the filename. This tells the disk drive that a direct 
access channel should be set up. The 1570/1571 then assigns a buffer to the 
channel. Its number (0..3) can be specified in "a". Normally you should 
omit this specification. The disk drive then automatically selects a free 
buffer. Otherwise you might select a buffer which is already being used for 
other purposes. 


If all buffers or the buffer desired is allocated, the drive returns "70 
No Channel". Always check the error variable DS after opening the 
direct access channel. 


2.1.2 Block-read and block-write 


As we indicated, there are special commands for reading a certain sector 
into the disk buffer or for writing the buffer to the diskette. The commands 
are sent over the command channel, channel 15. Therefore for all direct 
- accesses you must first open the command channel (see also Section 1.3.1). 
The sector commands all have the same format: 


"aaa:c dt s" 
The parameters have the following meanings: 


aaa Command word 

Channel number (secondary address) 
Drive number (0/1) 

Track number (0..35/70) 

Sector number 


arn 
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The channel number c is the parameter z from opening the direct access 
channel from the previous section. Now it is certainly clear to you why we 
wanted to know this parameter. The drive number 1 has no function on the 
1570/1571 because they are single drives. In spite of this, you may not omit 
it. It is always 0. Next follow the data of the desired sector--the track and 
sector numbers. The individual parameters are separated by spaces or 
commas in the command string. The command word can be separated from 
the parameters by a space or a colon. | 


Now on to the command word. The command word selects the exact 
disk function (reading/writing). Curiously, there are several commands that 
perform the the same thing: 


b-r 
ul 
u 


The commands ul/ua or u2/ub are identical. They cause the 
specified sector to be read into the buffer or to be written from the buffer to 
the diskette. All bytes of the sector can be accessed in this manner. The 
commands "b-r" and "b-w" do the same things, except it is no longer 
possible to read all of the characters in the sector. This is related to an error 
in the disk operating system. The instruction manual for the 1570/1571 
describes this special feature as a great benefit. But the only time it can be 
sensibly employed is when you are working with the last sector of a 
program or a sequential file. In practice this means that you can easily forget 
about "b-xr" and "b-w". Nothing more will be said about these 
commands here. | 





Now, how do you transfer specific bytes from the buffer to the 
computer? You do this by using the GET# or INPUT# command. Usually 
the GET# command is used. INPUT# is also possible, of course, a CR 
must follows a maximum of 87 characters (in 64 mode) or 154 characters 
(in 128 mode). 


The buffer pointer determines the location in the buffer at which the 
bytes for a read/write command are fetched or written. This is set to the start 
of the buffer after a U1/U2 operation. If you want to access a random 
section of the buffer (sector), you can use the block-pointer command. 


70 


Abacus Software 1571 Internals 





The syntax for this is: 
"b-p Cc bo" 


The specification c is the channel number (secondary address) which 
you have specified when opening the direct access channel. With b the 
position of the buffer pointer can be set. The location b is then the position 
to which reference will be made upon the next write or read command. 


Since a sector and therefore a buffer is 256 bytes large, b may have values 
between 0 and 255. 


In programs you normally use variables for the parameters like track 
and sector. This is no problem. If you output a variable with the PRINT # 
command, the space necessary to separate the parameters is output 
automatically. This is actually the sign of the variable value, which is 
printed as a space for positive values. 


Now an example of how you can use the U1/U2 commands: 


OPEN 1,8,15 Open command channel 
OPEN 2,8,2,"#" Open access channel 
IF ds<>0O THEN PRINT DSS _ Bvuffer free? 

INPUT "track ";t Input track 

INPUT "sector ";Ss Select sector 
PRINT#1,"ul:2 O";t;s Read sector into buffer 


IF ds<>O THEN PRINT DSS _ Sector read properly? 


Now you may perform data manipulations: 


PRINT#1, "b-p";2;10 Set buffer pointer 
PRINT#2,"new data" Write in buffer 
PRINT#1;"u2t2 OO"; tes Write sector back 

IF ds<>0O THEN PRINT DSS __ Sector written? 
CLOSE 1 Close channel 1 and 2 


CLOSE 1 suffices because all other channels are closed when the command 
channel is closed. 
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2.1.3 Block-allocate and block-free 


The disk drive keeps record of which sectors on the disk are allocated 
and which are still free. If a sector is designated as allocated, it cannot be 
overwritten by normal file and program data. The sector commands, on the 
other hand, do not necessarily follow these rules. 


For this reason there are special commands to allocate or release a 
sector. These are: 


"b-£f dt s" torelease 
"b-a dt s" toallocate 


The specification d is the drive number (always 0); t and s are the track and 
sector numbers of the desired block--simple enough in principle if errors 
hadn't crept in the disk operating system again. If you specify a sector 
number over 15 for the "b-a" command, not only the sector but the entire 
track will be allocated. If you allocate a sector which is already allocated, 
then the command should search for the next free sector. But if it doesn't 
find one on the track, then it tries the next higher track. But this will be 
allocated completely. The "b-£" command too works only with sector 
numbers up to 15. In short: Either limit your applications to the sectors 0 to 
15, or better yet skip it completely. If you use a separate disk for the data 
which you manage in direct access, the block management doesn't play a 
role. 


If "b-a" and "b-r" are to work at all, it is necessary to first initialize 
the disk with "i" (initialize disk). 
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2.2 The organization of the diskette 


2.2.1 The directory 


You may have wondered how the directory works. It is kept 
somewhere on the diskette. So that working with the directory entries is fast 
enough, these are not scattered wildly but have their own track. On 
Commodore diskettes this is track 18. Other data cannot be stored on this 
track. You should not attempt to use direct access commands on track 18. 
Now it is understandable why only 664/1328 sectors are available for data 
storage out of a total of 683/1366. 


The directory (the directory entries) occupy the sectors 1-18 of track 18 
on the first side of the diskette. The sectors are not used in numerical order, 
but at an interval of 3 sectors. This means data is stored first in sector 1, 
then in sector 4, then in sector 7, and so on. When the end of the track 1s 
reached, the other sectors (2,5,8, etc.) are used in the same manner. 


Each sector can store a maximum of eight entries. Therefore you can 
store up to 144 programs or files on a diskette. 


In this and the following sections we will become acquainted with the 
organization of a directory sector. The first two bytes are the chaining 
pointer. This indicates the track and sector number of the next directory 
sector. If no sector follows, then the first byte, which represents the track 
number, has the value 0. The second indicates how many bytes are 
contained in the last sector. 


Next comes the first entry in the sector, then two unused bytes, then the 
second entry, and so on. | 
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Re SSS SSS TSS sss Sc 


Byte Meaning 





0 File type Bits 0-3: 0 DEL entry deleted 
1 SEQ sequential file 
2 PRG program 
3 USR user file 
4 REL relative file 
Bit6: | 1=no write access allowed 
Bit7: | 1=entry closed properly 





1/2 Track and sector number of the first data block of the entry. 





3-18 Filename of the entry (maximum of 16 characters). The remainder 
are filled with "shifted spaces" (ASCII value 160). 





19/20 Track and sector numbers of the first side-sector block. 
Used only for relative files. 





21 Length of a record. 
Used only for relative files. 


22-25 Unused bytes 


26/27 Temporary storage for track and sector number of the first data 
block of the new file when the current file is overwritten with the 
"@" function. 


28/29 Low and high byte of the number of blocks used by the file. The 
number is stored in binary form. 
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One of the most important parts of the file entry is the data type 
indicator. The abbreviations should be familiar to you from the directory. 
But what is "DEL"? This indicates that the entry has been deleted. Such 
entries are not normally listed in the directory. The DOS skips all entries" 
whose data type is 0 when displaying the directory. If you now set bit 7 to 
1, an entry with the file type DEL would be listed in the directory, since the 
file type is no longer 0. 


Bit 7 indicates whether the file was closed properly or not. If a new file 
is placed on the diskette or a new program is stored, the directory entry is 
first created--also to check to see if an entry with the same name is on the 
diskette. The file type is also stored, but bit 7 is not yet set. Once the data 
are saved, the file is closed. The number of sectors used is stored in bytes 
28/29 and bit 7 of the file type is set. This makes the entry valid. If bit 7 1s 
not set, an asterisk is printed in front of the file type in the directory. Just 
setting bit 7 does not correct the error. You should also execute a COLLECT 
command to put the disk directory back in order. This also guarantees that 
the file is fully usable again. 


Bit 6 has a special function. If it is set, you cannot make any write 
operations to the entry. This means that the SCRATCH and RENAME 
command will have no effect. The file (or program) can only be read. 
Unfortunately there is no BASIC command to set or clear this bit. It can 
only be done manually using a disk monitor. 


2.2.2 The Block availability map - BAM 


In the previous sections, several references were made to a table in 
which entries were made to determine which blocks on the diskette were 
free and which were allocated. On Commodore diskettes this is called the 
BAM, an abbreviation for Block Availability Map. 


The BAM is stored in sector 0 of the directory track (18). In addition, 
this sector contains the name you gave the diskette when you formatted it. 


Before we concern ourselves with the structure of the BAM, let's take a 
look at how the sector allocation of a track is stored. 
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Sectors 0-7 Sectors 8 -15 Sectors 16-23 








-1 = Sector free 0 = Sector full 


Four bytes are present in the BAM for each track. The first byte is a 
binary value which specifies the number of free blocks. The three bytes 
following this contain a bit pattern in which one sector correspond to each 
bit (as long as the sector number exist). If the bit of a sector has the value 1, 
this means that the sector is still free, available for use. If the bit of a sector 
has the value 0, then the sector is no longer available for use. 


The block specification in the first byte is simply a work saving device 
for the 1570/1571 operating system. This way the set bits need not be 
counted each time, since this requires processing time. 


You can manipulate the BAM by using a disk monitor such that the 
number of free blocks on the track does not represent the real state of the 
allocated sectors. You can for example, enter that a block has 255 free 
blocks, which is impossible, of course. Since these block specifications are 
also used for calculating the total number of free blocks which you find 
listed at the end of the directory, astronomical numbers of over 17,000 free 
blocks are possible--which in reality, you don't really have at all. 


The disk operating system doesn't play along with such games for 
long. Every time changes are made in the BAM, checks are made to see if 
the block specifications of the track agree with their bit maps. If a deviation 
is found, the 1570/1571 responds with "71 Dir Error." 


The entire BAM is found in sector 0 of the directory track. This sector 
has the following construction: | | 
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yte Meaning 


ve, 


0/1 Track and sector numbers of the first directory sector, normally 
track 18, sector 1. 








2 Format designation, always "A" for 4040/1541/1570/1571 
(ASCII value 65). The disk is write protected if the format 
designation is wrong. 

3 Bit 7: O= single-sided 1541/1570 diskette 


1= double-sided 1571 diskette 





4-143 BAM for disk side 1. Each track is represented by four bytes. 
The map begins with track 1. 





144-159 Disk name, given at formatting. Up to 16 characters. The 
remainder is filled with "shift + space" (ASCII value 160). 





160/161 Two "shift + space" (ASCII 160) 
162/163 ID characters of the disk — 


164 This is supposed to be the version number of the operating 
system. But this character is always "2", although the 1570/71 
uses DOS 3.0. 

165 Format designater from byte 3 


167-170 Three "shift + space” (ASCII value 160) 
171-220 49 zeros 


221-255 Number of available sectors per track on the reverse side of the 
disk. These are the block specifications from the BAM on the 
other side of the disk. The value from track 36 is in byte 221. 
The last specification, in byte 255, concerns track 70. 


A marker is stored in byte 2 which specifies the format type. If this 
character is not "A", then the disk drive assumes that another format of 
directory and BAM management is present. To avoid disturbing this, no 
write operations are allowed. Such an attempt would be answered with the 
power-up message, indicating that the operating system can do nothing with 
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this format. Only the direct access commands still function. The sector write 
command (u2) doesn't bother with BAM or directory entries. 


The disk name is placed at byte 145. All characters up to byte 170 are 
present only for the directory output and give the title line. The contents are 
completely uninteresting. This puts all of those ID change programs which 
you see in magazines in a completely different light. If you change the ID 
here, you only get a different display in the title line. This does not change 
the actual ID in the header of each sector at all. 


2.2.3 Single or double-sided diskettes 


You may have asked yourself where the BAM of the second side is 
"hidden" on a double-sided disk. Sector 0 contains only the data for the first 
side. 


On double-sided disks, the directory track continues on the second side 
of the disk. The track on the reverse side has the number 53 instead of 18 
since the reverse side starts at 36. 


The BAM of the second side is found in sector 0 of track 53 from byte 
0 to byte 104. This involves only the bit pattern of each track. The byte in 
which the number of free blocks on the track is still stored in sector 0 on 
track 18 (see table). Otherwise, the map does not differ from the BAM of 
the first side. 3 


The remaining sectors of track 53 (numbers 1 to 18) are unused. They 
can be used for neither the directory nor for files. With the direct access 
method you can place data in these sectors--perhaps your own disk 
management map or copy protection. 


If a double-sided 1571 diskette is used in a 1541 or a 1570, only the 
first side can be read. This is causes problems in that the drive terminates 
the access (loading program, reading data) with the error message "67 
Tllegal Track or Sector" if the data is partially or completely on 
the other side of the diskette. If you use the 1571 in the C-64 mode or with 
a C-64, it behaves just like a 1541. The same problem would then arise. For 
this reason there are commands which switch to 1571 operation or to the 
second side (see Section 3.1.4). 
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2.2.4 Manipulating the directory and BAM 


You can, of course, change the format of either the directory of BAM. 
These manipulations can be divide into two groups. One group, includes 
such things as format tricks, serving to extend the capabilities of the disk 
drive or perform other small tasks. The other reduces the directory to 
chaos. This is used to make it difficult to load certain programs or so that 
the contents of the diskette can not be listed, and so on. 


Naturally, none of these methods will shock the experienced disk 
programmers. In direct access you can read the BAM and directory sectors 
and look at what has happened there. A disk monitor shows all such 
manipulations. 


We will avoid an endless list of these tricks here. But we do have some 
useful ones which make it easier to work with the disk drive. 


The first thing to mention would be bit 6 of the file type, by which you 
can protect individual entries from deletion or overwriting (see Section 
2.2.1). Another popular manipulation is changing the filename. This often 
involves making use of the fact that even with names which are less than 16 
character long, all 16 are saved. They are filled with spaces, however. 


It is precisely this which we want to change. Perhaps you have also 
tried to overwrite the block specification of an entry with load command 
(RUN/DLOAD/LOAD) after listing the directory. This way you don't have 
to type in the filename again. But this won't function quite correctly. The 
computer always responds with "Syntax Error." This is not surprising, 
since, after all, what is it to do with the file type abbreviation which is still 
in the command line? If you overwrite this with spaces, the whole thing 
works. But now the effort is almost as great as typing out the filename. 


It is our goal that after the filename in the directory, several characters 
are output that make the line into a completely valid BASIC command line. 
Then you need only overwrite the block specification and the program will 
be loaded. You could use the following as the end characters: 


See if DLOAD or RUN is used 


",8:" if LOAD is used for BASIC programs 
",8,1" for LOAD with absolute-loading programs 


79 


Abacus Software 1571 Internals 





As you have learned in Section 2.2.1, a shifted-space (ASCII value 
160) terminates the filename. It is at this point that the second quotation 
mark is printed in the directory. This means that your filename may be only 
up to 14 characters long. In order to perform these manipulations, you don't 
have to pull a highly complicated disk monitor out of the drawer. These 
extensions can be easily built-in when saving. 


For example: 

DSAVE ("name"+CHRS (160) +",8:") 
or 

DSAVE ("name"+CHRS$ (160) +":") 


Here is an example printout of one such directory: 


@ "i571 PRES "AE oy 

2 "USER FILE CREATE" PRG 
4 "EQGRMAT READ" s PRG 
4 "FORMAT ANALYZE": FRG 
“3 "4571 READER’: te 
{ "DISK TEST 128") 9 PRG 


G31 BLOCKS FREE. 


READY . 
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2.3 The organization of files 


2.3.1 Programs, sequential and user files 


Next we'll discuss how normal programs and files are placed on the 
diskette. The first two topics are programs and sequential files. In the next 
section we will say more about relative files, which are more complicated. 


The simplest form is still the sequential file. Data items are written one 
after the other in the file. The information first travels to the buffer inside the 
disk drive. If the buffer is full, its contents are written to a free sector on the 
diskette. This must then be designated in the BAM as allocated. When this 
is done the additional data is handled in the same manner. 


This scheme requires that you know which sectors make up the file and 
in which order you must read them in again. There is a pointer in the 
directory entry which contains the track and sector numbers of the first data 
sector (byte 1/2). This tell us where the file begins. So that we can find the 
next sector and the ones following it, they are chained. The first two bytes 
of each sector specify the track and sector of the next sector. For this reason 
a sector can store only 254 bytes of data. This chaining goes on like this 
until the last sector. This has a O as the track number of the next sector. The 
disk drive recognizes through this that the file ends with this sector. 


But normally, not all of the bytes of the last sector are used to store 
data. For this reason you must also know how many bytes belong to file. 
This is stored in the second byte of the sector (previously the sector number 
of the next block). 


Sequential files and user files are managed with this chaining method. 
But what is a "user file"? Actually it is nothing more that a sequential file. 
They are accessed in precisely the same way as described in Section 1.4. 
The file type must be "u" instead of "s", however. This gives you the 
option of selecting between two designations for a sequential file. There is 
also a disk command which works only with user files (see Section 2.3.3). 


Programs are saved in virtually the same manner. The only difference 1s 
that the first two bytes of a program file form the start address of the 
program (low byte/high byte) and are not data. The disk drive does not use 
this information; the computer uses the start address. 
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2.3.2 The relative file, the side-sector blocks 


The data in relative files are stored no differently from those in a 
sequential file. But as you know, a relative file is organized in records. You 
can access any desired record. 


The most important thing to do is to define the record length 
beforehand. This makes it possible to calculate from the record number and 
the record length the number of bytes which you must skip to reach the 
desired data record. If you read over all of the previous information in the 
file, nothing would be gained over a sequential file. 


This process is speeded up considerably if you divide the offset 
(number of bytes to skip) to the desired record by 254. This is exactly the 
number of bytes which fits into each sector. This means that we can 
calculate the sector in the chaining sequence in which the record is to be 
found. The remainder from the division indicates the byte number in the 
sector at which the desired data begins. Naturally you can now follow the 
sector chaining in order to find the proper sector. But this would hardly be 
faster than a sequential file. 


The special feature of relative files 1s that the sector chaining is stored in 


a special table. This table consists of a maximum of six sectors, which are 
called side-sector blocks. They are organized as follows: 
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Byte Meaning 


0/1 Track and sector number of the next side-sector block. 
2 Number of this side-sector block (0..5) 

3 Length of a record in the relative file 

4/5 Track and sector numbers of the first side sector (0) 
6/7 Track and sector numbers of the second side sector (1) 
8/9 Track and sector numbers of the third side sector (2) 


10/11 Track and sector numbers of the fourth side sector (3) 
12/13 Track and sector numbers of the fourth side sector (3) 
14/15 Track and sector numbers of the fifth side sector (4) 
16-255 Track and sector numbers of the data blocks 


The important part of the side-sector blocks are the bytes 16-255. Here 
you'll find a list of the data blocks used. Bytes 16/17 are the track and 
sector numbers of the first data sector of the file, bytes 18/19 are numbers 
of the second, and so on. There is room for the track and sector numbers of 
120 data blocks in a side-sector block. To be able to form larger files, you 
simply use additional side-sectors. 


But now we'd also like to know where the sector is which contains the 


desired record. To so this divide the previously calculated number of the 
blocks to the sector which contains the record. In this manner you can 


83 





Abacus Software 1571 Internals 


determine in which side sector the specifications for the desired data sector 
are found. The remainder resulting from the division gives the position of 
the track and sector specifications in the side sector. 


In this way, you now know the sector in which the record is contained. 
In addition, you can determine the position of the data record in the sector 
from the remainder of the first division, which we used to calculate the data 
blocks to the proper sector. Eventually, however part of the data record 
extends into the next sector. The DOS calculates this from the current 
position and the record length. 


So with the side-sector method you need a maximum of 3 sector 
accesses, though normally only 1 or 2 sector accesses, until you have found 
the desired data record. First you read the first side-sector. If you're not 
lucky, the specifications for the calculated data sector are not contained in 
this side-sector. This is why each side-sector contains the numbers of the 
other side sectors (bytes 4-15). Therefore the DOS always knows after the 
first access, in which side-sector the proper track and sector specifications 
are contained. Then you must read the side-sector. From this you obtain the 
position of the data sector. By the third access, at most, the sector with the 
desired record is found. 


But three accesses represents the worst case. Normally one of the 
side-sectors is always stored in a buffer. Then you know immediately in 
which side-sector block the desired data sector specifications are found. So 
two accesses to the disk are usually necessary. If you're lucky and the right 
side-sector is already in the buffer, or the file is still so small that only one 
side-sector is needed, you can even read the correct data sector directly. 
This case is not so rare, since in order to get a file with more that one 
side-sector, it must be larger than about 30K. 
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3.1 Programs in the DOS buffer 


3.1.1 Memory-read and memory-write 


As you read in the preface, the 1570/1571 is controlled by its own 
microprocessor system. In another section of this book we'll go into these 
internal matters of the drive more intensively. We'll talk more about 
programming the disk drive in 6502 assembly language, the language of the 
built-in processor. But you'll be able to understand the following sections 
even if you are not an expert assembly language programmer. 


As you already know, the disk drive has internal buffer storage. This 
involves a total of 2K of RAM located in the range from $0000 to $07FE. 
Part of this RAM is required for system purposes, otherwise the 
microprocessor could not function. The other part, a total of 5*256 bytes, is 
used as buffer storage. But more than just data can be placed in these 
buffers. It is also possible to place programs in 6502 machine language 
there. These can then be built into the operating system of the disk drive. 


Now we need a command to write the program into the disk buffer. The 
direct access methods would work for this, for instance. In this case you 
select a special buffer and transfer the program--like data--with the PRINT # 
command. But the 1570/1571 can do even more. There are special 
commands which serve only to send the contents of certain memory 
locations of the disk drive RAM to the computer. This command is called 
“memory-read." Its syntax looks like this: 


"m-r"+chrs (1) +chr$ (h) +chr$ (n) 


1 =low byte of the memory address 
h = high byte of the memory address 
n = number of bytes to be read 


The parameters 1 and h give the addresses of the desired memory. The 
parameter n is the number of bytes which you want to read. The 
specification n may also be omitted. Then the disk drive assumes that only 
one byte is desired. The "m-r" command will be sent to the disk drive via 
the command channel. If, for example, you want to read the memory 
location 151 (hex $97), the command sequence is as follows: 
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a = 151 7 Set address 
OPEN 1,8,15 Open command channel 
PRINT#1,"m-r"CHRS$ (a and. 255) CHRS (a/256) 

Address to drive 
GET#1,a$ Byte to drive 
PRINT ASC (a$+CHRS§ (0) ) Output byte value 


In this program the number of sectors per track of the last IBM-34 
format is read. 


Byte values, which will then be written to a specific memory location, 
can be sent to the disk drive as well. The command necessary to this is as 
follows: 


"m—w"+CHRS (1) +CHRS (h) +CHR$ (n) +CHR$ (b1) +CHRS (b2)... 


As you see, the address is again specified with 1 and h. Then follows the 
number of bytes which will be written at this location in the disk drive 
RAM. This time you cannot omit the specification n. Last come the actual 
data bytes. A maximum of 34 bytes can be sent with one "m-w" command. 
This is because the input buffer of the 1570/1571 is only 41 characters long. 
If you want to write larger memory sections into RAM, such as a machine 
language program, you must write it in several sections. 


3.1.2 Memory-execute and block-execute 


Just reading a program into the buffer doesn't do anything, of course. 
You must also be able to start this program somehow. This is done with the 
"m—e"™ command. The command has the following parameters: 


"m-e"+chrsS (1) +chr$ (h) 


Again a memory location must be divided into low and high bytes. The 
operating system of the 1570/1571 then jumps to this address. An 
intelligible program must start at this address or the disk system will crash. 
When the drive microprocessor encounters the instruction RTS in the 
program, the operating system resumes its work. 
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The specialists among you now know that one can also call specific 
subroutines in the disk operating system as well. The following little 
program, for instance, would destroy a given track completely thereby 
locking-up your disk drive: 


10 s = 18 
20 OPEN 1,8,15 
30 PRINT#1, "m-w"CHRS (0) CHRS (3) CHRS (6) CHRS (32) 
CHRS (163) CHRS$ (253) CHRS (76) CHRS (160) CHRS$ (234) 40 
PRINT#1, "m-w"CHRS (6) CHRS$ (0) CHRS (1) CHRS (s) 
50 PRINT#1, "m—w"CHRS (0) CHRS (0) CHRS (1) CHRS (224) 
60 CLOSE 1 


The track must be specified in s. For this experiment be sure to use a 
newly formatted diskette or a diskette that will not be used any more. This is 
because the data will not only be completely destroyed, but the operating 
system will always be rather mixed up by this diskette. The program creates 
a so-called "killer track", your drive locks-up when the directory is 
accessed. You must power down the drive to regain control. 


You may have noticed that the "m-—e" command is not used in this 
example. The program is started through a more refined method via the 
"m-w" command. This should not concern us further. Our intention is to 
show what possibilities you have with the memory access--even from 
within BASIC. 


If you want to place larger programs in the buffer in order to execute 
them there, it can take quite some time. The most sensible thing to do would 
be to read the program from diskette into the buffer and then start it there. 
You must now combine the "U1" and the "m-e" commands. The contents 
of a sector (the program) will be read into the buffer and then executed. The 
developers of the disk drive decided that this should also be possible with 
one command. This is called: 


"b-e cdt s" 
"p-e";c;d;t;s 


The parameters k and 1 are the channel and drive numbers, which you have 
already become acquainted with from the direct access commands. The 
parameters t and s are again the track and sector numbers. The selected 
sector is read into the buffer assigned to the channel. Then a jump is made 
to the start of the buffer in order to execute its contents as a machine 
language program. 
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The command has little advantage over a combination of the "U1" and 
"m-e"™ commands. Furthermore, it is seldom used. If you want to read 
programs from the diskette into the drive's RAM and there execute them, 
there is another, better command which we will discuss in Section 3.1.5. 


3.1.3 The user commands 


User commands are those which tell the disk drive to execute programs 
at certain locations in the memory. The start witha "U" followed by a digit 
or a letter. This second character selects from among several predefined 
addresses which can be branched to. 


The following user commands exist: 


User command Address Function 


Ul or UA SCD5F Block-read command 
U2 or UB $CD97 Block-write command 
U3 or UC $0500 Jump to buffer 2 
U4 or UD $0503 Jump to buffer 2 
U5 or UE $0506 Jump to buffer 2 
U6 or UF $0509 Jump to buffer 2 
U7 or UG SO50C Jump to buffer 2 
U8 or UH SO50F Jump to buffer 2 
U9 or UI SFFO1 Switch 1540/41 bus 
U: or Ud SEAAO Reset 

U; or UK SFE67 — Interrupt routine 





Some of the user commands jump to buffer 2 (U3-U8). The addresses 
have an interval of exactly 3 bytes. You can very easily set up a vector table 
in this buffer. This is a list of jump commands which then branch to the 
individual functions which are called with the user commands. 


The remaining user commands jump to various locations in the 


operating system. This adds some additional disk drive functions. You are 
already familiar with U1 and U2 from Section 2.1. 
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The U9- or UI- command serves to switch between the 1540 and 1541 
bus. The 1540 was the disk drive for the VIC-20. Since the VIC-20 had a 
somewhat higher clock frequency than the C-64, you could make the bus a 
bit faster with the "UI-" command. The command sequence "UI +" 
switches the bus back to the 1541 timing. If the + or — is omitted or 
another character is given, the disk drive will perform a partial reset. The 
zero page and system pointers will be set up again. The RAM/ROM test is 
not performed and the drive motor does not run. 


The UJ command is the total reset. The 1570/1571 behaves as if you 
had turned it off and then back on again. 


The 1570/1571 contains (in contrast to the 1541) the UK command as 
well. With this command a jump is made to a BRK instruction (see ROM 
listing $AA2D). As a result, UK starts the interrupt routine. In normal 
operation this has no special effect. But if you have inserted your own 
program in this routine (more about this in DOS chapter), then it can be 
Started in this manner. 


The user commands have a powerful advantage over the "m-e" 
command. You can use them in almost all situations where a program has 
only a function for entering disk drive commands--whether it is a word 
processor, database manager, or whatever. 


The "m-e" command on the other hand can be used only in BASIC 


since it needs the CHR$ function in order to transfer the low and high bytes 
of the start address. 
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It is almost a tradition at Commodore to put many interesting commands 
in the machines which are not mentioned at all in the instruction manual. 
And so the 1570/1571 offers a whole set of commands which are 
responsible for the handling of diskettes in the CP/M format "IBM System 
34." 


A command number follows all USERO commands. This number is 
composed of various bit data. It is therefore usually inserted into the 
command chain with the CHRS function. Then follow the parameters of the 
individual commands. All command numbers are composed of the 
following data: 


Bit O : drive number (0/1) 
Bits 1-3 : Number of the USERO function 
Bit 4 : Disk side involved 


O=sidel 1l=side2 
Bits 5-7 : Various control flags 


The drive number is always 0 for the 1570/1571, of course. Here the 
USERO commands are already set up for a future double disk drive. On the 
1570 bit 4 must also naturally stay at O because the 1570 can use only one 
side of the disk. 


All USERO commands function only when the disk drive is being used 
in the 1570/1571 mode. In the 1541 mode they will be ignored. The sole 
exception to this is command number 31. Here the functions with which 
one can select disk sides, among other things, are made available. 


Let's take a look at these new commands. For all commands the syntax 
must be: 


"UO0"+CHRS (31)+"aa" 
or "U0>aa" 


The appropriate function must be used in place of the characters "aa". 
The following commands have been added: 
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aa Function 





M1 Switches the disk drive to the 1571 mode. The system will be 
operated at a 2MHz clock frequency. This allows the C-1571 
properties to be used in the C-64 mode. | 

MO Switches to the 1541 mode with 1MHz clock frequency. 





HO Activates the head on side 1 
H1  ~=Activates the head on side 2 
The H command (head) works only in the 1541 mode 





Bit 7 controls the disk initialization for M and H: 
O= diskette will be initialized after the command 
1= diskette will not be initialized after the command 
Command number 31 means "with initialization," number 159 
“without initialization" 





Rx Sets number of read attempts in zero-page address $6A. The ASCII 
value x is placed directly in $6A (see zero-page listing for the exact 
function of the address). 





Sx Sets sector interval for Commodore diskettes ($69) 





| 


Tests the ROM checksum 





% 


The ASCTI value x will be accepted as the new device address for the 
disk drive. x must lie in the range 4-15. 


Another function, especially important in the C-128 mode, is the file 
fast-load. As you know, the loading speed is considerably faster on the 
C-128 than on the C-64. This fast loading is no longer organized via 
channel O, but is simply called through a command via the command 
channel. The data will then be transferred to the computer with the fast bus 
mode. The command has the following syntax: 
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OPEN 1,8,15,"u0"+CHRS (32) +"filename” 
Once again bit 7 in the bit pattern (32) controls a special function: 


Bit 7: O= file type will be tested for PRG 
1= file type will not be tested 
All sequential file types will be loaded 


But we want to concern ourselves with the more important USERO 
commands. These are the commands for operating the disk drive in the 
CP/M mode. You must first become acquainted some zero-page addresses. 
This will be required for programming in machine language, but they can 
also be used from BASIC. 


Address _—‘ Function 
$3C 60 Logical sector interval for diskettes in the IBM System 34 


format. | 
Used for "sector read/write." 





$24 36 Header of the last IBM 34 sector. 


$5E 94 _ Bits 0-3 = number of the current error message. This is 
precisely the value which is normally set in zero-page 
addresses $00-$05 by the job loop. 
Bit 7: 1= diskette is in IBM format 
O= diskette is in Commodore format 





$60 96 Smallest sector number on the track 





$61 97 Largest sector number on the track 





$97 141 Number of sectors on the track 
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For all CP/M functions which support the disk drive, the date will be 
transferred in the fast bus mode. This transfer mode can be programmed 
only in machine language, however. BASIC programs are too slow to 
accept the data. If a CP/M function is called with the appropriate USERO 
command, the disk drive then sends the data, but the computer doesn't 
receive it. 


This is not terribly tragic since the CP/M commands offer the following 
additional options: 


Bit 5: 1= don't read/write sector in buffer 

O= read/write sector from disk to buffer 
Bit 6: 1= disregard read/write error 

O= report read/write errors 
Bit 7: 1= don't transfer buffer to computer 

O= transfer buffer to computer 


Bits 5-7 of the command number control various special functions. The 
transfer which disrupts things under BASIC can be disabled with bit 7. In 
this manner a IBM sector is read only into the internal disk buffer. The 
transfer to the computer can be done with the direct access commands. 


To do this you must know that the data of an IBM 34 sector is always 
stored at address $0300 in the drive memory (buffer 0). The reason for this 
is that IBM 34 sectors can be composed of up to 1024 bytes and therefore 
occupy four buffers. This means that you will have to manage four different 
direct access channels. 


Now we come to the question of how the disk drive ascertains what 
sector length the diskette has. Further, it 1s possible to write diskettes with 
different numbers of sectors using CP/M. There must therefore be a way to 
analyze the diskette in the drive to get the data about the disk format. 


The disk drive offers two special functions for this. With one the header 
of the next sector can be read. An attempt is first made to read an IBM 34 
sector. If this fails, the disk drive tests to see if the sector is in the 
Commodore format. The result of the read attempt is stored in zero-page 
address $5E. Bit 7 indicates the disk type. 


For IBM-34 diskettes, the zero-page addresses $24-$29 can be read, 


which contain the ID field of the IBM sector. $27, for instance, gives 
information about the length of the sector. 
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A second USERO function yields the additional data of the disk format. 
This reads all ID fields of an IBM-34 diskette and calculates the following 
specifications: 


Command status byte ($5C). 

Number of sectors on the track ($97) 

Number of the track in which the header is found. 
Smallest sector number on the track ($60) 
Largest sector number on the track ($61) 

Sector interval. 


AWE WN re 


The specifications are transferred to the computer in the above order in 
the fast bus mode. A BASIC program would not be capable of receiving the 
data. In this case you must read them directly from the drive memory with 
the direct access commands (""m-r"). 


Command numbers of the analysis commands: 


Bit 76543210 Function 
000x0100 read next sector header 
xX = side number 
yOOx1010 analyze track 
xX = side number 
y = 1= go to track given as 4th character 
O= go to track 0 


The track analysis function cannot be started from BASIC because the 
USERO command does not work properly. You should send the following 
sequence over the command channel: 


"m-w"chrs (0) chr$ (5) chr$ (3) chr$ (76) chr$ (30) chr$ (133) 


The function will be called with "u3". Additional examples of the 
analysis of foreign formats can be found in Section 4.2.3. 


If you have set the disk drive for the IBM-34 diskette in this manner, 


you can read or write individual sectors with the USERO direct access 
commands. 
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Bit 76543210 Function 
abcx0000 read sector 
abcx0010 write sector 


x= side number 

a= transfer buffer to computer 
b= regard errors 

c= read/write buffer 


As you see, the supplementary function can be specified in bits 5-7 of 
the sector commands. The desired disk side can be determined with bit 4. 
On the 1570 drive this bit must always be 0 since this drive can use only 
one side of the disk. 


The parameters of the sector to be processed are sent to the disk drive 
over the command channel after the command number. The command is 
then worded: 


"u0"chr$ (commana) +chr$ (track) +chr$ (sector) +chr$ (number) +chr$ (new) 


The track and sector numbers must be given as ASCII values. The 
parameters following allow several sectors to be read one after the other and 
transferred to the computer, whereby the number of the next sector arises 
from the sum of the current sector number and sector interval ($3C). This 
function is useful only if the fast bus mode is being used. Finally, a track 
number can be specified to which the disk drive will move after the 
command. In this manner the disk drive can be steered to the next track 
while the computer is processing the last data. 


Finally, the 1570/1571 offers a function which is not possible on many 
other disk drives--the ability to format different IBM System 34 formats. 
The syntax of the USERO command is: 


Bit 76543210 Function 
Oiyx0110 format IBM 34 diskette 
x= side at which to begin 
y= number of sides to be formatted 
(O= 1 side, 1= 2 sides) 


i= 1= write track index label 
O= don't write index label 
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Parameters: 


4th character: Bit 7: 1= IBM System 34 format 
O= Commodore format 
Bit 6: 1= use specified sector table 
O= create sector table from first 
number and interval 
Bits 0-5: smallest sector number on track 
oth character: Sector interval - 1 
For Commodore format: ID1 
6th character: Marker for sector length [1] 
For Commodore format: ID2 
7th character: Last logical track number [39] 
8th character: Largest sector number on track [16] 
9th character: First logical track number [0] 
10th character: First physical track number [0] 
llth character: Empty byte, filled with the sectors [229] 
starting at the 12th character: 
Here the numbers of the sectors will be 
listed if bit 6 of the 4th character is 
set. 


As you see, the format function is very complex, but it also offers very 
comprehensive formatting possibilities. There is no format which cannot be 
created with this USERO function. It is even possible to format a disk so that 
it can no longer be analyzed or read. This is the case if each track contains 
only one sector, for example, or if all sectors on the track have the same 
number. 


The many possibilities of this command can also be used in BASIC. To 


do this you should study the BASIC programs in Section 4.2.3, which 
demonstrate the use of the USERO commands in detail. 
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3.1.5 Autostart files 


The autostart files are only mentioned briefly in the 1570/1571 
instruction manual. Nothing is said about the function and use of this 
program form. 


An autostart file is a USR file whose contents are loaded into an 
arbitrary RAM area of the disk drive memory. This means that you need this 
file form only if you want to execute your programs in the drive memory. 
Furthermore, autostart files are not as easily constructed as program files. 
But don't be afraid to use this disk drive function. 


Construction of an autostart file 
Byte Function 


0/1 Start address in RAM (low 
byte/high byte) 


2 Number of data bytes in this 
sector (max 255). 


3-n Data bytes for the autostart 
program. 


n+l Checksum calculated from byte 1 
to byte n. 


Autostart programs are organized on the disk like sequential files. The 
file type must be "USR". The user files are treated just like sequential files 
with the difference that "u" is given as the file type. You can open user files 
only with the BASIC 3.0 command since BASIC 7.0 does not support this 
form of file. 


The construction of an autostart file is not very simple. It consists of an 
arbitrary number of blocks whose structure is represented in the table 
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above. Each of these blocks, which follow one after the other in the user 
file, is processed separately by the disk drive. Naturally, the user file may 
also consist of just one autostart block. 


The first thing in an autostart block is the start address at which the 
program data of the block will be stored in drive RAM. Next is the number 
of bytes which will be occupied starting at this address. The data bytes of 
the program must be give starting at byte 3. Then follows a checksum, 
which is calculated by adding the start address, the number of data bytes, 
and the data bytes themselves together. If a carry results from the addition, 
it is counted along with the checksum. 


In order to operate larger programs in the disk drive memory, they must 
be divided into sections comprising 255 bytes. A separate autostart block is 
then created for each of these sections. Since this is rather laborious, we 
have a program which will do this for you. It creates an autostart file from a 
program file. The first two bytes of the program file, the start address, are 
used as the start address of the autostart file. 


The autostart file will be loaded by the disk drive and automatically 
started one you enter: 


OPEN 1,8,15,"&filename" 


The program in drive memory will be started at the address of the first 
autostart block. 
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i@ DIM A#$(255) 

20 INPUT "PROGRAM NAME" ; Bé 

3Q@ INPUT “USER NAME";C# 

4@ OPEN 1,9,0,8¢ 

SQ OPEN2,8,2,C#+",U,W" 

6@ GOSUE 28a 

7@ ON SGN(ST) GOTO 268: A=ASC (DS) 
ga GOSUB 28a 

90 ON SGN(ST) GOTO 26@:A=A+ASC (D#) #2546 
1@@ PRINT#2,CHR$(A AND 255) CHR (A/254) ; 
110 P=0 

i2@ FOR N=iTO 255 

i3@ GOSUB 280 oe 
140 P= (257% (P+ASC (D$))/256) AND 255 
150 IF ST AND 464 THEN 190 

16@ IF SGN(ST) THEN 2608 

170 A$ (N)=Ds 

18@ NEXT 

199 PRINT#2,CHRS(N) s 

2@9 FOR M=1 TO N 

210 PRINT#H2,AS(M) ; 

220 NEXT 

230 PRINT#2,CHRS(P); 

240 A=A+N 

250 ONN/256+1 GOTO 278,100 

260 PRINT "ERROR! !" 

270 CLOSE2:CLOSE1:END 

280 GET#1,D#:DS=LEFT# (DS+CHRS(@) , 1) 
29@ RETURN 


READY. 
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4.1 How does CP/M control the disk drive? 


4.1.1 BDOS and BIOS 


If you want to learn more about the CP/M operating system , you'll 
quickly encounter the terms BDOS and BIOS. The BDOS, an abbreviation 
for ‘Basic Disk Operating System," is the part of the operating system 
which controls working with the disk drive. It is responsible for the 
management of files, for the organization of the directory and so on. The 
second part, the BIOS (Basic Input/Output System) is responsible for the 
physical operation of the disk drive, reading and writing data on the 
diskette, and so on. 


Naturally we cannot publish a complete description of CP/M--not 
even a basic introduction. This theme is so comprehensive that a book the 
size of this one could be filled with information. For this reason we will 
look only at some of the most interesting aspects of disk drive programming 
under CP/M. 


The BDOS is identical on all CP/M systems and manages the data in 
blocks which comprise 128 bytes. It is responsible only for the logical 
management and handling of the data. Furthermore, the BDOS is the part of 
the operating system which offers the programmer a number of functions 
for operating the disk drive. 


The BIOS has the job of reading and writing the data blocks of the 
BDOS. This part controls the individual drives. For this reason the BIOS is 
rewritten for each new CP/M system since each computer system is 
constructed differently. So it depends on the computer system 
manufacturer, how capable the BIOS is. It can, for example, process 
several different disk formats, etc. 
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4.1.2 DPB - Disk Parameter Block 


To manage the data, the BDOS must know the exact format of the 
diskette. It is also important what capacity the diskette has or how many 
directory entries are possible. In addition, the BIOS must know which 
tracks of the diskette are are used for data, which for the operating system, 
and which for the directory. Furthermore, the specifications of the number 
of sectors per track, sector interval, and so on, are important. 


This information is managed in a special table, the DPB (disk 
parameter block). These specifications are shown in the table on the next 
page. 


The BIOS of the C-128 CP/M+ operating system can process a total of 
12 different diskette formats. In addition to the three Commodore formats 
(C-64, C-128 single-sided, C-128 double-sided), 8 different IBM-34 
formats are recognized. The DPB tables are stored in the file CPM+.SYS at 
address $1980. If you load this file with a debugger like SID or DDT you 
can see the DPB. When booting the system these tables are placed in the 
first bank of the C-128 memory along with the BIOS. For this reason it is 
very difficult to use the second 64K bank for program storage. If you 
switch to the second bank ($3E or $3F in $FFOO), the computer would 
crash because the program would be overwritten. 


The top 8K of the memory is not switched and always contains the 
upper area of the first 64K bank. You can make only limited use of this area 
because it is almost completely occupied by the CP/M operating system. 


When a diskette is inserted into the drive, the format data for the DPB 
table can be determined with the BDOS function $1F. To do this, the 
number of the drive is specified in A (accumulator) and after the call to the 
BDOS you get the address of the DPB in the HL register pair. The DPB 
tables of the current drives always lie in the upper 8K block of the bank and 
can therefore also be called up or manipulated from a program. 
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Byte Abr. Function 


2 BSH Block shift factor 
This number specifies the size of a management 
block of the BDOS. The individual blocks of the 
BDOS are combined into larger entities. The 
following formula applies: 
bytes per management block = 2 %* (7+BSH) 
The following values result: 
BSH 0 1 2 3 4 5 
Block size 128 256 512 1024 2048 4096 

3 BLM Block mask 
This number specifies the number of 128-byte 
BDOS blocks per management block. The value is 
decremented by one, that is, 7 means that 8 
blocks are contained. 
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5/6 DSM Number of 128-byte blocks on the diskette 
(without system tracks) - l. 


9 ALO 16-bit allocation map which indicates which 

10 AL1 management blocks are used by the directory. The 
first block of the directory track is represented 
by bit 15, the second by bit 14, and so on. 

11/12 CKS Number of directory entries to be checked to 
recognize a diskette change. 


15 PSH Marker for the physical size of a sector. 
PSH 0 1 2 3 | 
Bytes per sector 128 256 512 1024 
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4.2 CP/M diskette internals 


4.2.1 MFM data recording under CP/M 


This section discusses the method in which data is written to the 
diskette. What interests us is the technique with which the electronics record 
the data onto the diskette. 


This recording process is called MFM. This is an abbreviation for 
“Modified Frequency Modulation." "Modified" indicates that there is also a 
normal recording format, called 'FM." | 


First let's talk about the FM process even though the 1570/1571 doesn't 
use it. This will then make it easier to understand the MFM process. 


Most of you know that the read/write head is actually a small coil. This 
has the property that it functions like a magnet when current flows through 
it. In addition the polarity, the arrangement of the north and south poles, 
depends on the polarity of the current. This means that we have a small 
magnet which we can electronically alternate again and again depending on 
which voltage polarity is applied. 


The diskette consists of a special material that can be magnetized. The 
magnetic layer then takes on the same magnetic polarity as the coil in the 
read/write head. By switching the little magnet of the read/write head 
electronically you can write information on the diskette. Really quite simple! 
You magnetize the diskette in one direction for all 0-bits and in the other 
direction for all 1-bits. 


If you want to read the data again,the coil in the read/write head is also 
used. It returns a voltage according to the polarity of the magnetic layer on 
the diskette. But this happens only when the polarity on the diskette 
changes. This means that if the entire track on a diskette has the same 
polarity, nothing happens. 7 


For this reason you can proceed as follows: the polarity of the coil is 
changed for every 1-bit, but not for a O-bit. Reading the diskette then gives 
a short pulse at the read head when a1" is on the diskette because the 
polarity on the diskette changed. If this does not happen, then we know a 
Q-bit is on the diskette. 
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The drive motor creates a special problem. The recording of a single bit 
on the diskette is just a few millionths of a millimeter large. If the motor 
does not run extremely smooth and makes just a tiny start, data is skipped. 


If we can send telephone speech to the moon and back, don't we have 
the technology for somewhat more precise motors? But of course! But do 
you want to pay several hundred thousand dollars for your diskette drive? 


In order to even out the drive fluctuations, you can write clock bits on 
the diskette. A clock bit always has the value "1" and so creates a pulse at 
the read head each time. If a pulse occurs, the drive electronics know that 
they must now expect the data bit. If another pulse is read within a certain 
time, the data bit is a '"1". If this pulse is missing and the next clock bit 
suddenly appears, then the last data bit must have been a "0". 


But how are clock bits distinguished? A bit is a bit, right? Right--the 
electronics must be told somehow that the next bit is a clock bit. Then some 
complicated switching is possible to separate the clock and data bits. Section 
4.2.2 handles how the electronics automatically recognize the clock bit. 


Using the FM process, a byte would look like this: 
CDCDCDCDCDCDCDCD 

DO: tO. 1d: DO. 0.2 ODE 0 

Date byte: 


0 0 1 0 0 0 1 0 


C= clock bite 
D= data bit 


If you think back to Section 1.1.2, you may recall that it wasn't enough 
to simply write bytes to the diskette, you must also be able to find the stored 
data again. The problem involved marking the start of a data block, a sector. 


This is done with a special marking called the sync character. What 
does this marker look like? It must be distinguished from the usual 
recordings. A trick was devised for this: a few of the clock bits are simply 
omitted. But isn't this dangerous? What happens if the motor speed 
fluctuates? : 
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Let's pick the value $FE as the data byte. In this value there are a 
number of data bits with the value "1", which means that there are quite a 
few pulses on the diskette. In this manner the electronics can find their way 
when reading and can recognize that the clock bit is missing. We could also 
interpret the clock bit as a data bit and vice versa. For normal data the clock 
byte always has the value $FF. For each bit the clock bit is "1". If another 
clock bit is used, then this data byte can be clearly distinguished from all the 
other data bytes by means of the clock bits. 


Special clock bytes for the FM process: 


CDCDCDCDCDCDCDdDCD 


Normally the data in FM is recorded at a rate of 250,000 bits per 
second. Naturally you would like to put as much data on the diskette as 
possible. The first thought would be to increase the recording rate, maybe to 
500,000 bits per second. This would double the capacity of the diskette. 
But there are physical limitations. The magnetic layer is not capable of 
recording data at this high speed. Since for 500,000 data bits per second, 
500,000 clock bits are also recorded, we have a grand total of 1,000,000 
pulses per second. It is not possible to write so many pulses since they 
would overlap each other because they could not be recorded accurately 
enough for there to be a gap between two "1" pulses. © 


For this reason we have to try to reduce the number of pulses on the 
diskette without changing the data rate. 


The clock bits are the disrupting factor, since they are not used for data 
storage but still take up half of the diskette storage. The clock bits are 
especially important if the data bit has the value "0". In this case we can 
recognize, with the help of the clock bits, that a data bit is missing. If the 
data bit has the value "1", the clock and data bits are represented by a pulse, 
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resulting in the high pulse rate. We should then omit the clock bits for all 
data bits with the value "1" and to write them for O-bits. With this method 
there is a sufficiently large interval between individual pulses, which would 
not be present for successive clock and data bits with the value 1", since 
the electronics have a certain rise and fall time. The data rate has not 
changed and is still 250,000 bits per second. 


You can say that there is a bit cell present for each data bit on the 
diskette. If the value of the data bit is "0", a pulse is recorded at the start of 
the cell, while a1" bit is represented by a pulse in the middle of the bit cell. 
For sync and index marks a bit cell of the data byte does not contain a pulse 
and is thereby identified as a special marker. 


4.2.2 The IBM System 34 format 


"IBM System 34" refers to a diskette format that is in very widespread 
use. Almost all disk controller components record the data according to this 
method. The IBM System 34 format (abbreviated to "IBM-34" from now 
on), is not the manner in which the data are managed on the diskette, but the 
method according to which the tracks and sectors are constructed or the 
sync marks are created, and so on. 


In the IBM-34 format, sectors with 128, 256, 512, and 1024 bytes per 
sector can be used, whereby most diskette formats use sectors comprised of 
256 bytes. For this reason we will discuss only the organization of a track 
with 256 bytes. For other sector sizes the same principle for sector 
recording is used. 


IBM-34 diskettes always use the index hole mentioned in Section 
1.1.2. This hole controls the point at which the sector recording is to be 
begin on the track. When the index pulse is encountered, 80 bytes with the 
value $4E are recorded on the track. This value is used as the fill value for 
the gaps when formatting. This gap after the index hole gives the controller 
time to activate the read/write logic. Then comes the "pre-index", a mark 
consisting of 12 bytes with the value $00. With this value, pulses are 
generated on the read/write head for clock bits only. This allows the 
controller to set its read electronics so that clock and data bits will be 
separated automatically for normal data bytes. The $00 bytes serve to 
inform the controller which bits are the clock bits. The marking with $00 
bytes is also called "sync", since it synchronizes the controller. 
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Following the index hole is the "index mark". This tells the controller 
that previous gap belonged to the index hole, since gaps are also present 
between the individual sectors. The "index mark" for MFM consists of three 
bytes with the value $F6, followed by a $FC byte. The clock byte $C2 is 
used for the value $F6 when formatting. This means that the clock bit is 
missing between the third and fourth data bits which would normally be 
required. The controller recognizes the index mark through this since this 
clock bit is not missing for a data byte with the value $F6. 


Farther on in the sector there is a gap with 50 $4E bytes. This gives the 
controller time to prepare for processing the sectors. Following this gap are 
12 bytes with the value $00, representing a sync mark. The next 3 bytes 
have the data value $F5 and are recorded with the clock byte $A1. Together 
with the $FE byte they represent the "ID address mark." This mark indicates 
that the sector header follows. The next six bytes are the sector header. 


First the track number of the sector is named. Then comes a byte which 
specifies the diskette side. The value "0" is used for the front side and the 
value "1" for the back side of the diskette. 


The next byte is the sector number of the data section following the 
header. The fourth specification is the sector marker, which specifies the 
size of the data sector. The significance of the byte values follow: 


00 128 bytes per sector 
O01 256 bytes per sector 
02 512 bytes per sector 
03 1024 bytes per sector 


The sector header is terminated with two checksum bytes, also called 
CRC bytes. 


The sector header is followed by a 22-byte gap with the value $4E, 
terminated by 12 bytes with the value $00, representing a sync mark. 


The "data address mark" follows this, marking the start of the data area. 
It consists of 3 bytes with the data value $F5 and the clock byte $A1, as 
well as a byte with the value $FB. Following the data address mark are the 
256 bytes of the sector. 


Finally, two check sum bytes are stored. These are calculated using the 


CRC procedure. CRC is an abbreviation for Cyclic Redundancy Check. In 
this method a polynomial is formed from the individual bits of a data byte. 
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This polynomial is divided by the generator polynomial, 
G(x)=X16+X12+X5+1. Normally this division does not come out even 
and a remainder results. The CRC bytes are the values which you must add 
to the polynomial of the data bytes so that the division by the generator 
polynomial does not give a remainder. This sounds complicated, but it is 
accomplished with simple digital switching. 


At the end is another gap of $4E-bytes. The size of this gap depends on 
the sector size. In addition, larger gaps are used on drives with speed 
fluctuations which may be up to 3% than are used on more stable drives. 
Following this gap is the sync mark before the ID address mark of the next 
sector. | 


The exact organization of a track can also be gathered from the ROM 
listing. The routine at $8A86 formats a track in IBM-34 format. From it can 
be seen which marks are created, how larger the gaps are, and with what 
parameters the formatting procedure is controlled. | 


4.2.3 Reading "foreign" diskette formats 


One of the best capabilities of the disk drive is its ability to read 
foreign" diskette formats. This is used only in the CP/M operating system. 
The CP/M+ operating system on the C-128 recognizes various formats from 
Epson, IBM, Kaypro, and Osborne. 


If you intend to implement a new diskette format there are several 
possibilities for doing this. You can add the format data to the BIOS and 
have CP/M+ recognize the format automatically. Another possibility is to 
process the diskette format through direct access commands (See Section 
3.1.4). 


For both applications you must know the exact format of the diskette. 
These are things like sector length, number of sectors, and so on. These 
specifications can be determined with the analysis functions described in 
Section 3.1.4. Since the determination of a recording process is very 
involved, we present a small BASIC program which does the work for you. 


When entering the program be sure to input the spaces and CHR$ codes 


properly. Default values are specified for the input parameters and you need 
only press <RETURN> in order to accept a parameter. | 
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The analysis programs first asks for the device address and the drive 
number. Then the number of the track to be investigated can be specified. 
Once these inputs have been entered, the analysis begins. 


The program first determines if the diskette uses an IBM-34 or a 
Commodore format. The IBM-34 format is flawlessly recognized by the 
program. But if neither an IBM format nor a Commodore format is present, 
(such as if the diskette is unformatted) the program still responds 
"COMMODORE." Therefore you may view the indication of a Commodore 
format with some suspicion. Always check in this event if an entire sector 
or the directory can be read. 


Basically, the program serves only to analyze IBM-34 diskettes. Some 
specifications from the sector header are listed first. These are the track 
number entered in the sector header, the specification of the diskette side 
and the sector marker. The last specification indicates how long the sectors 
on the track are. 


Following these are some data which the disk drive has calculated from 
reading all of the sector ID fields. These are the number of sectors on the 
track and the smallest and largest sector numbers. In conclusion, all of the 
sector numbers are listed in the order in which they are located on the track. 
With this list you can recognize the physical sector interval or spot 
irregularities in the sector distribution. 


Just as exciting as the analysis of foreign disks is the ability to format 
disks in this format. The following program is used for this: 
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1 dimn (32) s:bst=chrs (157) :b3¢=bss+bsst+bss 

2 printchrs (14) chr$#(147) "TBM System 324 Format 
"ches ti?) 

o praint"Unit B"b3Fsrinput u 

4 onit (ur4)—turiS) gata2 


~ print"Side 2 'bStssinput sesd=(s/S)andi:sa= 
sandi ; 
6& printchr?(147) "Number of tracks 40"blsbs 
Fprinput nt 

7 print"“log. Track start B"bSFssinput tl 

S print"phy. Track start @"bS3Fssinput tp 

FY print "Sector size oO"DAFssinput si 
14 print"Number of sectors ao 'bStssinput sn 


11 print”"Define sequence (y/n)” 

12 getat#: onasc (at) and3sgotois,i7:gotoiz 

13 sq=1i:fora=itosn 

14 printasbs#". Sector "rights (stréiad,2)3 
iS printba¥s:sinput ninta)=nand3i 

16 nextsgotoi? 

17 sq=@:print "First Sector 1"bS33srinput fs 
:fs=fsand3i 


18 praint"Sector skew 4°’ bats sinputsk:sk=((s 
k >) #-—sk) ands3i 

19 print"Fill byte 2297" bStbstbstssinput 6b 
y | 

2Q@ b$="uli"+chr 4 (6+5#16+sd#*#32) +chrs (128+59%64+ 
#5) 

21 6$=b$+chr# (sk) +chr# (sid+chrs (nt+ti-i)}+chrs 
(sn) 


22 bS=bs$+chrs(tl1)+chrs (tp) +chres (byand255) 

25> fora=itosn:b#=b#¢+chré(n(a))snext 

24 printchr?(147) "Formatting..." 

29 openi,u,15,b#:closel 

26 ifds=@then28 

2f printchr#(17) chr#(17)chr#t18) "Format Error 
28 printchr$(17)chr#(17) "one more disk (y/n)" 
27 getas: onasc (at) and3goto24,?:gota29 


ready. 
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@ bt=chrt#(1iS57) :bss=bt+bF+bs 

i praintchr# (147) "Format Analyzer” 

2 printchrs (17) chr#t1i7) "Unit B"b3ts input 
ul 

= onitius4)—tus15) goto2 

4 print"Drive G"bSFtsrinput d: d=dandi 

2 praintchr? (147) "Track Q@"bSsesinput tt 

6 aopeni,u,1is 

f praintchr#(147)"Side i 2°52: S=@:gosubi3 
8 printchr#¢i7) "Side 2 2:"s2s=1:gosubi3 
Y print#i,”"uj” 

1G closei 


11 prantchr#(i7)"1 next disk / 2 end" 

iZ2 getat:onval (at) +igotoi2,5:end 

is print#i, “u@"chrs (ise) "mi" 

14 print#i, °“u@"chrt (138+s*i6) 

is Dee eee eee 

16 print#i, "m—-w"chrs (6) chrét3) chrs (3) chr$ (76) 
chr? (20) chert (13d) 

if print#l, Mus—"+chrs (tt) 

18 print” TERM System 34 format" 

19 a=S6: gosubS4:iprint"track number: "b 

24 a=37:qgosub34:print"Side bit :"b 

21 a=S39: gosubsS4:print"Sector size :"b; 

22 printtab(17)"("2"(7+b) "Bytes/Sector )”" 
2° a=1lsisgosubt4:n=brprint"No. of Sec. :"b 
24 a=965: gosubs4:print"min. Sector :"b 

2o a=9/:gosubs4:print"“max. Sector :"b 


26 prant "Sequence Sere 
27 fora=s2stose22tn: gosubt4:printbhs snextiprint 
2-8 gotos3 


2<F print” COMMODORE Format" 
3oW@ a=24: gosubS34:printchrtti7i “Track number: "s 


b 
S21 a=Sesqgosubt4sprint*’IDi (Dec.) "sb 
ose a=2S:qgosubs4:print"iDS iDec.) aap 


eo Feturn 
54 print#i,"m—-r "chr? (aand233) chrs (la/2s5é) chrs t 


oo get#i at: b=asc (att+chrs (4) >? 
26 return 
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The program allows you to create various IBM System 34 formats. To 
do this you must specify the device address and drive. Then follow the 
inputs which determine the format. 


The first question concerns the number of tracks to be formatted. The 
number of the track to be entered in the sector header must be entered. The 
next input determines at which physical track the formatting will start. This 
can be used to format only certain tracks, whether for repairing damaged 
sections or to confuse the controller. 


Now the marker for the sector length is required. It may have values 
between values between 0 and 3. The next question allows the creation of 
the sequence of sector numbers "by hand." If you don't want to do this, 
answer with "n". 


If no sector sequence is entered, then the program wants to know the 
number of the first sector and the sector interval. The sector interval is the 
number of sectors to be constructed between two successive sectors. The 
program does not check to see if the entered here make sense. The disk 
drive is the first to determine this and indicates by flashing the error light. 


In conclusion you can define a byte with which the sectors will be 
filled. Normally the value is $E5 (229). Be sure not to enter any values 
greater than $FO (250) because these have control functions when 
formatting. 


Now the diskette is formatted. If you answer the question following the 
formatting with "y", you can create another diskette in the same format 
without having to re-enter the parameters. 


The two BASIC programs are not particularly complex and do not use all of 
the capabilities of the disk drive. They are intended to show you how 
diskette programming with IBM-34 diskettes is performed. You may be 
able to find some suggestions for your own programs in these BASIC 
programs. | | | 
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4.2.4 Programming the WD 1770 controller 


The control of the IBM-34 recording is performed by a separate 
controller component in the 1570/1571--the WD 1770 from Western Digital. 


In this section we will discuss how this controller is accessed and 
programmed. This can be done only in machine language and only in the 
disk drive memory. Additional information about the technical construction 
of the controller can be found in Section 5.2.4. 


The following registers are present for programming the controller: 


Address Read function Write function 


$2000 Status Command 
$2001 Track Sector 
$2002 Sector Sector 
$2003 Data Data 


As you see, register $2000 has different functions when reading and 
when writing. If a value is written into this memory location, is is 
interpreted as a command. When reading this address, it doesn't return a 
command but a value representing the status of the controller. The additional 
registers serve to pass the command parameters and data to the controller or 
communicate from the controller to the computer. 


The controller recognizes the following commands: 
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1 Restore 0O000hvxXy 
1 Seek 0O00l1lhvxy 
1 Step 0O0luhvxy 
1 Step in Ol1ld0uhvxy 
1 Step out Olluhvxy 
2 Read sector 10Q0mheO 0 
2 Write sector 10 lmhepa 
3 Read address 1100heO OQ 
i) Read track 11i10heQ00 
3 Write track l1litltlhe 0 
4 Force interrupt 110212igjgkil1 
Meaning of special bits: 
h: O= turn motor on, 1= turn motor off 
v: 0O= verify track, 1= don't verify track 
x/y: Step rate 0 0 = 6ms 
QO 1 = 12ms 
1 0 = 20ms 
1 1 = 30ms 
u: Set track register to track in sector header 
0= no 1= yes 
m: O= read just one sector 
l= read several sectors 
a: O= set data mark for "sector valid" 
l= set data mark for "sector erased" 
e: O= no head settling time 
l= 30ms head settling time 
Pp: O= precompensation on 


l= precompensation off 


i-l: Interrupt servicing 
i: disregard 
j: disregard 
k: interrupt when index hole encountered 
1: immediate unconditional interrupt 


end command without interrupt for i-l = 0 
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Status register: 


Bit 0: Busy flag. Indicates that the command is being 
executed. 

Bit 1: Data request/index 
For all other commands this bit signals that data 
can be taken from register $2003 or can be written 
in the register. 

Bit 2: Lost data/track00 
For commands of type 1 this bit indicates that the 
head is on track 0. 
For all other commands this bit indicates that the 
data in register $2003 was not read or written by 
the program in time. 

Bit 3: CRC error. The checksum bytes of the header or the 
data block decoded an error. 

Bit 4: Record not found. The specified track or sector was 
not found. 

Bit 5: Spin-up/Record type 
For commands of type 1 this bit specifies that 6 
diskette rotations have taken place. For commands of 
type 2 and 3 this bit was the value of the "data 
mark." 

Bit 6: Write protect. This bit indicates when writing that 
the write protect tab is in place. 

Bit 7: Motor on. This bit gives the status of the motor. 
0O= motor off 1= motor on 


As you can see, the controller commands are divided into different 
command types. The various command types use the status register in 
different ways and specify which parameter registers are used in a certain 
manner. Some commands or command bits control the stepper and drive 
motors. This task is not performed by the IBM-34 controller on the 
1570/1571 but by the operating system. Therefore commands of type 1 are 
meaningless on the Commodore disk drive. 


The commands of type 2 write and read individual sectors. Before one 
of these commands can be passed to the command register, the number of 
the desired sector must be written to register $2002. If the desired sector is 
not present, the controller tries five times to find the sector. If this is not 
successful, then bit 4 in the status register is set. The sector register $2002 
indicates the number of the next available sector. 
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The commands in group 3 serve to process entire tracks and to analyze 
the track. The first command, the "Read Address" command, reads the next 
occurring sector header and outputs it via data register $2003. The two CRC 
bytes are also passed. Status bit 3 indicates if these bytes are correct or if a 
checksum error occurred. 


The "Read Track" command serves to read an entire track, including the 
address marks, the gap bytes, and so on. The gap bytes may have the 
wrong values if they are intended to synchronize the controller. An entire 
track can be read and analyzed with this function. 


The opposite is the "Write Track" function, which writes an entire 
track. This command is used for formattng the track. For this reason not all 
of the byte values are written as data bytes on the diskette. The values from 
$F5 to $F7 have special control functions: 


SF5 ID address mark. Writes $F5 with clock byte $Al1 
(missing clock bit between bits 4 and 5) 

SF6 Index mark. Writes SF6 with clock byte $c2 
(missing clock bit between bits 3 and 4) 

SF7 Writes two CRC to the diskette instead of the byte. 
The checksum is calculated with the data since the 
last address mark. 


The track functions start reading or writing when the index hole is 
encountered. The track is processed until the index hole is encountered 
again and the diskette has made one complete revolution. 


Unfortunately it is not possible to copy entire tracks of a diskette to 
another track or to another diskette with these two commands. The reason is 
that errors occur with the gap and synchronization bytes when reading. 
Beyond this, and this is the most serious problem, the data bytes $F5-$F7 
are not written as data bytes but are interpreted as control values for address 
and identification marks. 


The interrupt command serves to interrupt the current function. The 
condition under which the command is interrupted can be set through bits 
i-]. After this command, you must wait at least 32 microseconds before the 
controller may receive the next command. Otherwise it will not interrupt the 
current command. 
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5.1 How the bytes appear on the diskette 


5.1.1 The organization of a sector 


The fundamentals of sector organization was discussed in Section 
1.1.2. We'll now discuss this topic in more depth. 


As we already mentioned, the start of each sector is provided with a 
special marker on Commodore diskettes. Through this the electronics can 
recognize the start of a sector on the track. This marker is called a 
synchronization mark, or "sync" for short. 


The figure shows the basic structure of a sector. The sector starts with a 
sync mark. Then follows the sector header, which contains the following: 


The first byte of the header serves to identify the header and has the 
value $08. The disk drive determines if a sync mark, a header, or a data 
field follows. The data section starts with the marker $07. 


Next follows the checksum of the header. In order to calculate it the 
track and sector numbers as well as both ID characters are added. The next 
two bytes of the header contain track and sector numbers of the header. The 
disk drives uses this data to find a given sector. 
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Finally, every sector header contains the two ID characters which were 
specified when you formatted the diskette. These characters are read and 
checked upon each access. If the ID characters have changed, then the disk 
drive assumes that the diskette was changed. 


The two byte values $0F have no control function. They produce the bit 
sequence "01010101" on the disk, which synchronizes the read electronics. 


The sector header is followed by a 9-byte gap before the actual data 
section begins. This gap is to allow enough time to enable and activate the 
write operation when writing. 


Then comes the sector data. In order to recognize the start of the sector 
exactly, the data section is preceded by a sync mark. The first byte after the 
sync mark has the value $07. This is so the data section can be 
distinguished from the sector header. After the data marker follow the 256 
data bytes of the sector. At the end is another checksum composed of the 
sum of the data bytes. 


After each sector is another gap. Its length depends on the number of 
sectors on the track and the track number. 


5.1.2 The sync marks 


As you know, the 1570/1571 does not use the index hole to recognize 
the start of sectors for the Commodore formats but uses specially recorded 
marks on the disk, called sync marks. 


These marks consist of 5 bytes with the value $FF (40 bits with the 
value 1). The read electronics recognize when more than 10 bits with the 
value 1 have been read and then generate the sync signal. This signal is used 
by the disk operating system when it is waiting for the next sector. This 
mark also tells the read electronics when the data bits of a byte begin by 
waiting until the 1 signals of the sync mark are past. 
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This sync mark causes some problems on the 1571. Certainly you have 
noticed that when booting the CP/M+ operating system, included with the 
computer, that the disk drive blinks for a long time. In addition, the process 
runs a good 30 seconds faster if you copy the operating system to a diskette 
whose second side is unformatted. 


The reason for this behavior is that the drive light always flashes when 
initializing the diskette and the process takes a long time if the sync marks 
are on the second side. After a new disk is inserted, the 1571 tries to 
determine if both sides are formatted. To do this it attempts to read from 
both sides. When reading, the disk drive naturally orients itself according to 
the sync marks. If you insert a diskette which is formatted on both sides in 
which you formatted one side of the disk and then flipped it over, the 
following takes place: The disk drive reads from the reverse side until a 
sync mark is encountered. If this does not occur within a certain time, then 
the disk drive assumes that the second side is unformatted. But on the type 
of diskette described, there are sync marks on both sides of the diskette. 
The fact that the diskette is running backwards on the second side from the 
way it is usually, does not make a difference since a sequence of 1-values, 
the sync marks, has the same effect read forwards or backwards. Only the 
following data is not the sector header or the data block, but the bytes of a 
gap. 


The read logic therefore signals an error. The catch is that the disk drive 
then initiates an error-handling procedure. The read is attempted several 
more times, whereby the head is repositioned slightly. This procedure takes 
a good deal of time, however. 


It is therefore advisable to copy double-sided disks which where used 
in a single-sided drive by turning them over to a single-sided format. C-64 
or VIC-1541 users who want to make better use of their diskettes in this 
manner must take into account that the initialization process on the 1571 will 
take somewhat longer. 


A solution to the problem would also be possible with the USER-0 


command "U0>ra". This sets the number of read attempts which will be 
executed for an error to the value 1. This supresses the error routine. 
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5.1.3 What is GCR coding? 


You have probably asked yourself how the data bytes are recorded in 
Commodore format since data bytes with the value $FF could be interpreted 
as sync marks. 


The recording format is rather exotic because different recording rates 
are used on different tracks. The Commodore format belongs neither to the 
single-density formats which transfer data at a rate of 250,000 bits per 
second, nor to the double-density formats which work at 500,000 bits per 
second. A recording rate is used which varies between 250,000 to 307,692 
bits per second. Since the outer tracks have a greater circumference than the 
inner tracks, you can also store more data on them. Therefore there are four 
different track zones on Commodore diskettes: 


Track number Recording rate Sectors per track 


1 - 17 38461 bytes/sec 21 
18 - 24 35714 bytes/sec 19 
25 —- 30 33333 bytes/sec 18 
31 - 35 31250 bytes/sec 17 


The GCR process is used to record the data. GCR stands for Group 
Code Recording. In this method, 4 data bits are converted into 5 GCR bits. 
A data byte, comprised of 8 bits, is represented by 10 GCR bits. To do this 
one divides the data byte into two halves, the low-order half (0-3) and the 
high-order half (bits 4-7). The bits of each of these halves are converted 
according to the table on the next page. 


Thse GCR values are chosen such that a zero is written after a 
maximum of four 1-bits. As a result, after data bytes are converted to GCR 
bytes, the longest possible sequence of 1's is a sequence of eight, so data 
will never be interpreted as a sync mark. In addition, no more than two bits 
with the value 0 ever follow each other with GCR values. This is important 
because the read electronics equalizes drive fluctuations through the 1-bits. 


Data bytes are always converted in groups of four by the disk operating 
system. In this case the result is exactly 5 bytes with the corresponding 
GCR values. Data is not converted automatically, however, but must be 
performed by a program. The DOS contains routines which perform the 
conversion by means of an algorithm or with the help of tables. The first 
method has the disadvantage that the program is more complex and runs 
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slowly, while the table method requires more memory space, but is 
somewhat simpler and faster. 


Decimal Binary byte GCR code 


0 0000 01010 
1 0001 01011 
2 0010 10010 
Ss 0011 10011 
4 0100 01110 
5 0101 01111 
6 0110 10110 
7 0111 10111 
8 1000 01001 
9 1001 11001 
10 1010 11010 
ad 1011 11011 
12 1100 01101 
13 1101 11101 
14 1110 11110 
15 1111 10101 


This conversion of the binary data to GCR values and back again is one 
of reasons the disk drive needs its own microprocessor system and buffer 
storage. The data cannot be converted as fast as they must written to the 
diskette (see recording rate). The data are stored temporarily, converted, and 
then transferred to the disk. 


Here are some examples of how 4 binary bytes would be converted to 
GCR values: 


Data bytes $01 $02 $03 $04 
Binary value 0000 0001 0000 0010 0000 0011 0000 0100 
GCR value 0101001011010101001001010100110101001110 
GCR bytes $52 $Cc5 $25 $4C S4E 


Data bytes SA1 SFC $65 $9D 
Binary value 1010 0001 1111 1100 0110 0101 1001 1101 
GCR value 1101001011101010110110110011111100111101 
GCR bytes $D2 SEA SDB $3F $3D 
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5.2 How the bytes get on the diskette 


3.2.1 1570/1571 circuitry 


The following sections describe the control system of the disk drive. 
Predominantly this involves how certain electronic components are used in 
the 1570/1571 and what tasks they perform. Naturally, this section cannot 
offer a complete introduction into microprocessor techniques. Also, the 
components used in the 1570/1571 can be discussed only in reference to 
their functions in the drive. 


We will not try to replace a complete schematic here--we can only 
clarify some of the more important elements of the disk drive. 


The heart of the microcomputer is a 6502B processor. This can be 
driven at a clock rate of 2MHz. The clock can be switched between 1 and 
2MHz on the 1570/1571. In the 1541 mode the disk drive uses the slower 
processor frequency since the VIC-1541 also works with this frequency. If 
the disk drive is in the 1571 mode, the processer will be clocked at 2MHz. 
The bus routines are the reasons for the different clock frequencies. In this 
program sections in depends on the timely course of the bus signals that the 
disk drive reacts fast enough and that the data are outputted in the proper 
intervals. 


The higher clock frequency of 2MHz has some advantages. The data 
which are read from the disk can be processed more quickly. This concerns 
the GCR conversion, for example, since it is now possible to convert a byte 
from GCR to binary as soon as it is read. Beyond this, the bus can be 
operated at a maximum transfer rate of 500,000 baud. At this speed it is 
possible to send an entire track to the computer immediately during reading. 
The fact that these superb capabilities are not used is the fault of the 1570/71 
operating system alone. 


Connected to the processor are three input/output components, an 


IBM-34-format controller, 2K of RAM, and 32K of ROM. These individual 
components occupy the following address ranges: 
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Range Component 


$1800 - $180F 6522 (VIA1) 
Controls bus and 1571 electronics 
$1c00 - $1COF 6522 (VIA2) 
Controls recording electronics, 
motor, etc. 


$2000 -— $2003 WD 1770 


$4000 -— $400F 6526 (CIA1) 

Controls fast bus mode 
$8000 — SFFFF 32K ROM 

Operating system 


5.2.2 The interface components 


This section involves the interface components of the type 6522 and 
6526. The data sheets for the 6522, available from many semiconductor 
vendors, are recommended for better understanding of these circuits. 
Unfortunately there is no public support for the 6526 since it is a 
development of Commodore. Detailed information about the 6526 can be 
found in the Anatomy of the C-64 and C-128 Internals from Abacus. 


We will first talk about the 6522, also called a VIA (Versatile Interface 
Adapter). The 1570/1571 has two such components. The VIA pins are 
assigned as follows: 
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Pin Name Function 


2-9 PA 8 data lines which can be programmed 
freely 

10-17 PB 8 data lines which can be programmed 
freely 


The individual control and data lines of the VIA are controlled by the 
computer. The VIA has 16 registers which lie in the memory range of the 
computer, via which the computer can control the input/output component 
by writing values in the registers. In addition, the VIA has two built-in 
counters. These count the processor clock pulses. Once the counters have 
reached certain values, various actions can be generated. This can be used to 
program a certain time span after which a signal is generated. This is why 
these counters are usually called timers. 


The VIA has two sets of 8 input/output lines. The data register 
determines which lines are used as input and which as output, whereby each 
bit of the register corresponds to a line. If the bit has the value 0, the 
corresponding line is used as input, while the connection functions as input 
for the value 1. When used as input, the arriving signal is placed in the 
appropriate bit of the data register. If the data line is switched to output, the 
level of the corresponding bit in the data register is outputted. 


The two data ports are called PA and PB. Port PA has two different 
data registers. If you work with data register $01, then writing a new value 
to this register will always affect the control lines. For example, a pulse can 
be sent over the control line through which the receiving logic recognizes 
that a new signal is ready on the port. This function is not used by the 
1570/1571 however. It is therefore irrelevant which of the two data registers 
you use. 
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Register layout of the VIA 6522 


Address Function 
n Data register for PB 
n + $01 Data register for PA with handshaking 
n + $02 Data direction register for PB 
n + $03 Data direction register for PA 
n + $04 Low byte of timer 1 
n + $05 High byte of timer 1 
n + $06 Output value of timer 1 (low byte) 
n + $07 Output value of timer 1 (high byte) 
n + $08 Low byte of timer 2 
n + $09 High byte of timer 2 
n+ SOA Serial input/output line 
n+ $0B Auxiliary control register 
n+ $0C Peripheral control register 
n+ $0D Interrupt flag register 
n+ $0E Interrupt mask _ 
n+ SOF Data register for PA (without handshaking) 
n= $1800 for VIA1 
$1000 for VIA2 


In addition to the input/output lines there are also the control lines CA 
and CB. These have control functions when writing to the data registers, as 
mentioned before. CA and CB can also be used as normal input/output 
lines. This is there task in the 1570/1571. The mode in which the control 
lines are operated or the level they have is determined in the peripheral 
control register: | 


Peripheral control register: 


Bit 0 : 0 = CAl1 input on falling edge 
1 = CAl input on rising edge 
Bits 1-3: 110= CA2 output with low level 
111= CA2 output with high level 
Bit 4 : 0 = CBl1 input interrupt on falling edge 
1 = CBl input interrupt on rising edge 
Bits 5-7: 110= CB2 output with low level 
111= CB2 output with high level 
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The control lines of the two VIAs are used for the following purposes: 


Line Function 

VIA1 CAl Input for ATN signal of the serial bus 
Creates interrupt on rising edge of ATN 

VIA1 CB1 Write protect signal. Flag in the 
interrupt register is set on a falling 
edge. This means that write protect light 
barrier was interrupted and the disk was 
changed. 

VIA2 CAl Input. Sets flag in interrupt register 
on negative edge of the byte ready signal, 
which indicates that a byte was read or 
written. 7 

VIA2Z CA2 Output for the SOE signal (serial output 
enable). l= read/write electronics 
activated and the byte-ready signal 
requested. 

VIA2 CB2 Head mode 
O= write data 
l= read data 


The control lines are used especially in VIA2. They set the read/write 
electronics or receive return messages. The most important signal of this 
type is the byte-ready input. This signal indicates when the read/write logic 
has processed a byte and written it to the disk or when a byte has been read 
from the disk and is now available for further processing. The byte-ready 
signal is also sent to the PA7 input of VIA1 and the SO input (set overflow) 
on the processor. These last two inputs are used and tested by the disk 
operating system. In the 1571 mode, PA7 is used, while SO is used in the 
1541 mode. A high level on SO has the result that the overflow flag of the 
processor is set. In this manner the byte-ready signal can be very easily 
processed with the 6502 instructions BVC and BVS. 


The most important tasks of the two VIA components are not 


accomplished with the control lines, but with the ports PA and PB. Here is 
the layout of these input/output lines: 
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Line 


I/O Function 


Data input from the serial bus 
Data output to the serial bus 

Clock input from the serial bus 
Clock output to the serial bus 


0= ATN will be answered automatically 


1= ATN will not be answered 
DIP switch 1 (left) 

DIP switch 2 (right) 

ATN signal from the serial bus 


VIAL 


PAL 


State of the track 0 light barrier: 

0= head on track 0 

1= head not on track 0 

1570/71 bus data direction 

O= 1570/71 bus is input 

1= 1570/71 bus is output 

Active head (only for 1571) 

Drive mode and processor clock 

O= 1541 mode with 1MHz clock frequency 
1= 1571 mode with 2MHz clock frequency 
Byte-ready signal 


STP1 Second bit of the stepper control 
STPO First bit of the stepper control 
O0= drive motor off, 1= drive motor on 
O= drive indicator (LED) off 
1= drive indicator (LED) on 
Condition of the write protect 
0O= diskette is write protected 
1= diskette is writable 
DSO 
DS1l 
The signals DSO and DS1 control the 
recording rate on the diskette. 
(see ROM listing $9409) 
Sync signal 
= sync mark encountered 


Data sent to the write electronics 


Data sent from the read electronics 
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Another interface component used in the disk drive is the CIA 6526. 
This input/output device is also used in the C-64 and C-128. The CIA 


component is very similar to the 6522. It contains a real-time clock with an 
alarm. 


In the 1570/1571 only the serial input/output (SP) and the coresponding 
clock line (CNT) are used. Both of these inputs are responsible for the 


transfer of data in the fast bus mode. You can find out more about this in 
Section 5.2.6. 


Naturally, the CIA 6526 also has two 8-bit parallel ports, which are not 
used. You have the option of using these lines for your own applications. 
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5.2.3 The WD 1770 controller 


The WD 1770 is manufactured by Western Digital and is software 
compatible with the WD 179x series, which are also produced by other 
manufacturers. This 28-pin component contains everything necessary for 
controlling a disk drive. This includes logic for controlling the stepper 
motor, for example, to move the read/write head. Beyond this, all 
components required to read and write data are integrated into the WD 1770. 


The stepper control of the WD 1770 is not used in the 1570/1571 disk 
drive. The operating system takes care of this through VIA2. Only the 
signals for write protect and track 0 are connected to the WD 1770. This 
inhibits writing to write-protected disks even if the operating software does 
not check the write protect. 


Naturally, it is possible to control the stepper motor through the WD 
1770 with some add-on circuitry. If you modify the operating system 
accordingly, this would have the advantage that the DOS would no longer 
be concerned with head positioning and could accomplish other tasks 
instead. 


Another possible modification would be to disconnect pin 26. This 
signal is tied to ground, so the MFM recording procedure is always used. If 
you use single-density diskettes, recorded with the FM procedure, you can 
set the controller accordingly by tying pin 26 to 5V (this is possible with a 
1K resistor ). You can also build a switch with which you can select 
between double and single density (depending on whether pin 26 is at 0 or 
1). The operating software of the 1570/1571 doesn't notice any of this, and 
the CP/M+ operating system works well with single-density diskettes. 
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Pin layout of the WD 1770: 


Pin 


Name 


Function 


23 


24 


25 


MO 
WG 


TROO 


IP 


WPRT 


Chip select. A low signal on this pin 
addresses the chip. 
O= write to registers 
l= read from registers 
Address lines which select the desired 
register when CS=0 
Data bus to the processor 
A low level causes a reset 
Ground connection 
+5V 
Output for step pulses for the head 
motor 
Direction 
O= head moves to the outside 
l= head moves to the inside 
Input for operating clock of 8MHz 
Read data. Pulses from the disk. This 
information contains clock as well as 
data bits. 
Motor on. Switch on output to the motor. 
Write gate. This output will high if the 
disk is being written. 
This is the data, together with the 
clock bits, which will be written to the 
disk. 
Track 0 input: 0= head on track 0 
l= head not on track 0 
Index pulse: 0= index light barrier 
interrupted 
1= index light barrier not 
interrupted 
Write protect: 0= disk is write 
protected 
1= disk is writable 
Double density. 0= double density 
1= single density 
Data request. l= data register is ready 
Interrupt request. l= end command 
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5.2.4 The Commodore controller 


For the Commodore formats the recording is handled by another 
controller. The word "controller" is going a bit far, since it actually involves 
a digital logic network to which entire bytes are sent and which writes them — 
in serial to the diskette. This network is placed in a gate array chip produced 
by Commodore. For this reason we have no description of the pin layout 
here since Commodore does not offer any support for this device. Those of 
you who are still interested in the construction of this device should take a 
look at the older Commodore disk drive models, which did not use this gate 
array. 


The construction of the Commodore hardware has not changed much 
over the course of the years. For this reason we can refer you to the 
literature on the 4040 and 1541 since these devices contain the same basic 
functions as the 1570/1571--just not in a gate array. 


The gate array consists of two important parts: a 
parallel-serial/serial-parallel converter and a BCD counter. The data byte to 
be written is sent from PA of VIA2 to a shift register. From there it is sent 
on to the write electronics with the clock CLK, which is created with a 
programmable divider and the signals DSO and DS1 (see VIA2), which then 
amplifies the pulses and controls the head coil. 


The same thing happens when reading, only reverse order. In addition, 
a counter is reset each time a O-bit is encountered. The counter starts to 
work when bits with the value 1 are encountered. This happens until a 0-bit 
is encountered. Once the counter has reached the value 10, the SYNC signal 
is generated, since no more than 8 ones can occur in a row with normal 
GCR data. 
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5.2.5 The 1541 and 1570/1571 modes 


The disk drive can be operated in two different modes. The first of 
these is the 1541 mode and the second is the 1570/1571 mode. In the 1541 
mode the 1570/1571 disk drive is intended to be compatible with the 1541. 
This is why a clock frequency of 1MHz is used in this mode. Primarily the 
DOS uses the ROM routines $C000 to $FFFF, which are identical to the 
1541 ROM. The disk controller routine is not used because the new 
hardware features, such as the track 0 recognition, are recognized only by 
the 1571 ROM. 


A more serious difference is that only one side of the disk can be used, 
even double-sided 1571 diskettes. This mode has the advantage that the 
problems with two-sided disks (flippies") discussed in Section 5.1.2 do 
not occur. 


The additional functions available via USER-O can no longer be 
performed in the 1541 mode. The only exceptions are the head and mode 
commands, which do not function in the 1570/1571 mode since they are not 
allowed there. 


The bus can service only the normal C-64 algorithm in the 1541 mode. 
In the 1570/1571 mode, both the new, fast bus mode and the old bus mode 
are possible. This depends on the device with which the disk drive is 
communicating and is determined anew for each transfer. 


After the disk drive is turned on it is always in the 1541 mode. The 


1571 can be reached only with the "u0>m1" command. The C-128 
performs this during its reset procedure. 
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5.2.6 The serial bus - technology and function 


The serial bus is the connection between the computer and peripheral 
devices connected to it. The disk drive is controlled and data are transferred 
over this bus. It will be thoroughly discussed in this section so that not only 
can beginners learn how the data communication between the disk drive and 
computer works, but more advanced programmers can also get useful 
information about working with the bus. 


The bus consists of six lines whose significance is discussed in more 
detail: | 


Pin Name Function 
1 SRQ Serial request. This line serves as the 
clock line for the fast bus mode. 


2 GND Ground connection. Sets up a common 
zero-potential between all connected 
devices. 

3 ATN Attention signal. Indentifies controller 
commands. 

4 CLK Clock line in the normal bus mode. 

5 Data Data line in the normal bus mode. 

6 Reset Computer reset signal. If the computer 


is reset or turned on, all connected 
peripheral devices will be reset via 
this line. 


The lines GND (pin 2) and Reset (pin 6) cannot be affected by the 
computer system. GND is the ground potential of the computer. The 
ground connections of the all the peripherals are tied together through this 
lien, creating a unified OV potential because the differences will be 
equalized. In this manner a logical 0 on all devices corresponds to the same 
voltage. 
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The Reset line passes the pulse created on power-up or through the 
reset button on to the peripheral devices. These then behave as if the result 
pulse which arises when the peripheral is turned on had been created and 
enter their initial states. If a device attached to the computer is turned on, no 
pulse may be created on the line. There are some improperly constructed 
devices here and there which do exhibit this behavior. This results in the 
computer being reset if you turn on a device connected to the computer. A 
tip: first turn on all peripherals you will need and then turn the computer on. 
This way you can be sure that all devices are in their proper initial states. 


The remaining lines of the serial bus are controlled by the computer. 
The computer is called the controller since it controls the action on the serial 
bus. Since this communication usually takes place between the computer 
and the peripheral, this is the normal case, but it is not necessarily so. Two 
disk drives can exchange information with each other--the bus logic is not 
confused as a result. Such transfers are not supported by the Commodore 
operating system, however. 


On the serial bus you must note that only one device may send data. 
This device is called the talker. Several devices may listen at the same time, 
and these are called listeners. The controller determines which device 
functions as talker and which as listener. 


Now you can understand why two computers cannot be attached to the 
same peripheral device. In this case there would be two computers which 
could both issue instructions at the same time regarding who may 
communicate with whom--resulting in total chaos. In addition, there is a line 
that may be controlled by only one computer. 


The problem of connecting two computers does not lie with the bus 
logic but with the software, i.e. the operating system. You could develop a 
program which makes the computer appear like a peripheral device, and 
could then be attached to another computer system. 


A total of four lines are available for transferring data. Since the 
procedures on the bus can be very complicated, we will use the process of 
“Stepwise refinement" in explaining them. This means that you will learn 
first about the rough, fundamental relationships. Later we will investigate 
the processes in more detail--down to the analysis of the schematic of the 
bus electronics. 


The central control of the bus procedures is assumed by the controller. 
There is a special line, called ATN (attention), which is activated by the 
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controller when it wants to send a command to the peripheral devices. All 
data sent while ATN is active (high state) are commands. These normally 
consist of two bytes, whereby the first byte is constructed as follows: 


Bits 0-4 : Device address of the device concerned 


Bit 5 : l= addressing as listener 
Bit 6 : l= addressing as talker 
Bit 7 : O= marker for primary address (lst command byte) 


l= marker for secondary address 


Bit 7 of the command byte indicates whether the byte is the first byte, 
containing the primary address, or the second byte containing the secondary 
address. When calling a device, the first command byte is sent first. Bits 5 
and 6 specify if the device is to act as the talker or a listener. These two bits 
therefore control whether the connected device will send or receive data. 
Only one of the two bytes may ever be set since a device cannot send and 
receive data at the same time. 


Bits 0-4 of the primary byte specify the number of the device for which 
the command is intended, which may lie between 0 and 30. For this reason 
each device must follow the proceedings on the bus whenever the ATN line 
is active to see if it is being addressed. 


The device address 31 has a special function and serves to set up the 
data transfer on the bus again. If this address is used, all peirpheral devices 
reset their bus logic and end the current talker or listener functions. This 
usually concerns only one device, the one the computer is communicating 
with. It is also possible, however, for two peripherals to exchange data or 
for several devices to be in the listener mode. In this case all devices are 
reset by this device address, For this reset function bits 5 and 6 have the 
same meanings as for normal device addresses. In this manner listeners and 
talkers can be reset independently of each other, whereby these commands 
then receive the designations unlisten and untalk. 


_ In most cases, the addressing of the peripheral device does not suffice. 
That's because you would usually like to control special functions of the 
device, which is done through the secondary address. If a secondary 
address is used, then a second control byte is sent in the ATN command 
mode. This can be recognized since bit 7 is set. Bits 5 and 6 always have 
the value 1 for the secondary byte. Bit 4 specifies if the secondary channel 
is to be opened or closed. The number of the desired channel must be given 
in bits 0-3. 
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Here is an overview of the various control bytes: 


Control byte Function 


O10xxxxx Talker call 

01011111 Untalk 

OO1lxxxxx Listener call 

00111111 Unlisten 

lillyyyy - Open secondary address 

1110yyyy Close secondary address 

0110zzzz Send secondary address for listener 


and talker operation 


As you already know, every peripheral must analyze the command 
bytes in the ATN mode to see if it is concerned by the command. What 
happens if a device is busy? Imagine that the disk drive is formatting a disk 
or that the printer is outputting a line at this moment. In this phase the 
processor system of the peripheral device is busy with its work and has no 
time to pay attention to the bus traffic. 


For this reason a procedure called "handshaking" is used, with whose 
help the data flow can be controlled. Just like you don't go storming into 
your boss's office but knock on the door first and wait for "Come in," so 
the bytes are not outputted on the until the computer makes sure that all the 
devices are listening. 


The control signals necessary for this are sent over the clock and data 
line and have the following significance: 


Data 0O= all peripherals ready 
1= peripheral(s) not ready 
Clock O0= controller ready 
l= controller is not sending data 


The following happens if a device is to be addressed: 


First the ATN line is activated, which signals that a command follows. 
The controller then sets the clock line to the value 1 to indicate that the data 
byte has not been sent yet. At the same time it places the value 0 on the data 
line. Through electronic switching, the data line is automatically set to the 
condition "1" at every peripheral device. 
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Now the peripheral devices have time to prepare for the reception of the 
control byte. If the peripheral is ready to process the control byte, then it 
sets its data output back to the value 0. Once the last peripheral has reset its 
data line, the level on the data line goes back to zero, which tells the 
controller that all devices are ready. 


The controller determines if anything is even connected at the start of 
this addressing phase. It checks to see if the data line is set to the value 1 
within one millisecond. This gives a peripheral device which doesn't have 
automatic switching to set the data line enough time to react to the controller 
call. If the data line is not set high, then the computer outputs the error 
message "Device not present." 


When all peripheral devices are ready, the controller sets the clock like 
to the O state. This is the signal for the connected devices that the transfer is 
beginning. No more handshaking is done. The peripheral devices must all 
be fast enough to process the data. A data bit is outputted on the data line 
with each low pulse on the clock line. In the time span between the two data 
bits the clock line assumes the condition 1, telling the connected devices that 
they should indicate whether or not they received the data bit. To do this, 
the talker, which in this case is the computer, sets the data line to the value 
Q. If the peripheral device received the data bit, it must tell the talker this by 
outputting a high level on the data line. The talker notices only to the first 
device which responds in this manner. If additional listeners are present, the 
messages of these devices will be ignored. For the talker, it is interesting 
only whether at least one listener is present or not. If the acknowledgement 
of the data bit does not suceed, a "Time out" error message results in the 
status byte of the computer. 


The fundamental proceedings on the serial bus are not very 
complicated, but you are still in no position to develop your own bus 
control routines, expecially in 6502 machine language. You must first 
become acquainted with the hardware of the serial bus. 


If you use the operating system routines, the bus programming is not 
difficult. There is a separate routine present for each bus function, like talk 
or untalk, which need only be called in machine language. The parameters 
for the bus call must be passed in some zero-page locations and the 
processor registers. 
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Here is a list of the most important operating system routines, which are 
identical on the VIC-20, C-64, and C-128: 


Name Address Function/parameters 


Parameters in zero-page addresses which must always 


be set: 

SB8 Logical file number 

SBA Device address 

SB9 Secondary address + control bits 4-7 
SBB/SBC Address of the filename for OPEN 

SB7 Length of the filename 

OPEN SFFCO Open data channel (as in BASIC) 
CLOSE SFFC3 Close data channel (as in BASIC) 
CKOUT SFFC9 Output character in A on the bus 
CHKIN SFFC6 Get character from bus into A 
TALK SFFB4 Call talker function 


LISTEN SFFB1 
SECTALK SFF96 
SECLISTEN SFF93 
UNTALK SFFAB 
UNLISTEN SFFAE 


Call listener function 

Send secondary address after talk 
Send secondary address after listen 
Send untalk command 

Send unlisten command 


Assembly language programmers among you will not want to leave 
anything to the operating system but will want to program everything 
yourselves. You have probably already studied the layout of the 
input/output components in the disk drive and the computer. 


INPUT 


OUTPUT 


Ea 


BUS 


Notice that two different bits of the input/output port are used for the 
same bus line. One bit serves for outputting the data and the other is set up 
as an input. In order to understand what les behind this peculiar set-up, we 
must consult the schematic of the bus logic. 
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As you see, the two connections of the I/O component are connected to 
the bus line via inverters. The inverter always outputs the precise opposite 
of the signal fed into it. In this manner the levels on the serial bus always 
have the opposite value as the bit in the input/output register. 


The reason for this is technical in nature. It is not physically possible to 
set a line to the 0 level and then output the value 1 on the line through 
another output, such as the peripheral device. The line would never assume 
the value 1 because the low level would function as a short-circuit. 


The entire handling of the signals must therefore be inverted. If the line 
is to have the value 0, the level 1 is outputted. This remains until some other 
device set the level 0. This creates a short circuit and the voltage on the line 
collapses. This then corresponds to the low level. 


The devices which are connected to the serial bus always have one 
output line and one input line. A specific level is placed on the bus through 
the output line. If this is a '"1" level, so that the value 0 is outputted on the 
bus (remember the inverter), it may occur that this is brought to the 0 state 
by another device. For this reason each device has an input line with which 
the actual bus level can be tested. 


Basically this special hardware organization is not interesting for 
programming, because the proper logical values will always be 
electronically restored by the inverters. But unfortunately there is an 
exception. This is the input at the computer, the C-64 or C-128. This input 
has no inverter. 


This must be taken into account when programming. If the values of the 
bus inputs at the computer are to be read, they must always be inverted by 
the program. If you are waiting for a certain level on a bus line, then you 
must remember that you must actually wait for the opposite value. 


The fact that the physical level is inverted in contrast to the logical value 
always leads to confusion, especially in the ROM listings. Therefore always 
look first for the routines which set the data or clock lines to a certain value. 
You can then recognize if setting a line to the value 1 is commented with the 
physical or logical level. In the DOS listing in this book the logical level is 
always commented. Special care is urged with the ROM listings for the 
C-64 or C-128. There it is usually overlooked that the inputs are not 
inverted and so lie at the physical bus levels. This leads to comment 
confusion which no longer has anything to do with the actual proceedings 
on the serial bus. 
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As you know, the 1570/1571 can be operated in the fast bus mode. The 
SRQ line is needed for this mode. This line carries the clock signals which 
the CIA 6526 creates when outputting a data byte. The data register of the 
receiving device is controlled by these clock signals. 


The SRQ line is also used to determine if the peripheral device 
concerned can be accessed in the fast bus mode. To do this the calling 
device sends eight clock pulses on the SRQ line when the level on the data 
line is reset, indicating that the receiver's readiness. These pulses set a flag 
in the interrupt register of the computer. When the controller recognizes the 
resetting of the data line, it checks at the same time to see if the flag in the 
interrupt register is set. The bus controller then knows that the device can be 
operated in the fast bus mode. In this case the controller sends eight clock 
pulses over the SRQ line when setting the clock signal. This tells the 
peripheral device that it is supposed to send or receive data in the fast bus 
mode. a 


In the fast mode, the data bits and clock bits are not inverted, because 
they are not processed by the CIA. Only the actual data transfer is 
performed in the fast bus mode. A byte is transferred in exactly 64 
microseconds, which would make a transfer rate of 15,625 bytes per 
second possible. 


But as you might have already noticed, just 3500 bytes are loaded in the 
fast mode. This is the fault of the management routines in the disk drive and 
computer, neither of which is very well-written and therefore slow down 
the transfer. 


This was also the case with the C-64. The transfer algorithm of the 
C-64 bus is capable of sending or receiving at up to 1200 bytes per second. 
The management routines of the operating system slow the bus speed down 
to a meager 400 bytes per second. | 


This is why saving programs on the C-128 is no faster than on a C-64, 
although the fast bus is used. It is irrelevant whether or not data can be 
transferred in a millisecond or a few microseconds if the operating system 
can accept only one byte every 2.5 milliseconds. 


The fast-load systems are faster only because the management time 
(open file, manage pointers, ...) is drastically reduced. 


Theoretically it is even possible to realize bus transfers at up to 60,000 
bytes per second with the C-128's fast bus hardware. 
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5.2.7 The stepper motor 


The stepper motor is a special device. A normal motor starts to run as 
soon as it is supplied with current. An example of a motor of this type is the 
drive motor which rotates the diskette. 


This drive motor has a tacho-generator on its axle, a small component 
which determines the rotation count of the motor. The current supply of the 
drive motor is controlled with this measurement so that the motor runs at a 
constant speed. 


The stepper, on the other hand, is a special motor which is controlled 
not by a steady current but by pulses. The motor moves an exact amount 
each time it receives a pulse. For the stepper motor in the C-1570/71 this is 
exactly 1.8 degrees. This means that after exactly 200 pulses the motor has 
completely exactly one revolution. 


The rotation angle of a stepper motor is called a step, which makes the 
nomenclature more understandable. Each pulse moves the motor one step. 
The advantage of a stepper motor is that it can be rotated both forwards and 
backwards. The rotation direction is controlled by the signals STPO and 
STP1 on the 1570/1571. These two bits must be seen as a 2-bit value. If 
one increases the value, the motor moves so that the head travels toward the 
outside, while if this value is decreased, the head moves to the inside. 


On the 1570/1571 the head is moved one track by two steps. These step 
pulses may not follow each other too closely, of course, since the stepper 
motor needs a certain time in which to make each step. As you have 
certainly noticed, the head moves much faster in the 1571 than it does in the 
1541 mode. 


Since the clock frequency is twice as high in the 1571 mode, the step 
pulses are also created twice as fast. When experimenting with the stepper 
programming, you should proceed very carefully, and preferably use the 
operating system routines. | 
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6.1 The DOS routines 


6.1.1 The DOS - An introduction 


First a little history. The grandfather of 1571 DOS was the operating 
system of the CBM 4040 double disk drive. The CBM 4040 had a 
microcomputer controller with two processors. One processor was 
responsible for managing data and the other for controlling the drives. This 
division of labor was intended to make the system faster. 


When the VIC-20, Commodore's first home computer, appeared on the 
market, it naturally had to have a compatible disk drive. It would have been 
costly to develop a completely new system—and it didn't make sense to 
reinvent the wheel when the capable CBM 4040 disk drive was available. A 
control circuit using one processor for a single disk drive was developed. 
The software of the 4040 drive was simply modified. The disk management 
routines were the same as those on the 4040. But the new single drive 
lacked the second processor for drive control. As a result, the processor of 
the VIC-1540 disk drive also had to take over the tasks of the control 
processor. This decreased the speed of the VIC-1540 drive. 


The DOS in the VIC-1541 is almost identical to that in the VIC-1540. 
Only the bus routines were changed, since the C-64 has a slightly lower 
clock frequency than the VIC-20 which decreases the bus controller 
somewhat . 


The 1571 DOS consists of 16K of ROM of the VIC-1541 and an 
additional 12K of new operating system components. Once again timeliness 
won out and Commodore simply expanded and adapted the existing DOS 
version again. The fact that the performance of the disk drive has not 
improved much is obvious. 


Beyond this, the 1571 DOS V3.0 perfects chaos itself. This DOS 
contains a management section which was intended for two drives and a 
multi-processor system. This includes drive management that was intended 
for multi-processor operation but can control only one drive. 


This section of the 1541 ROM was copied for use in the 1571 ROM in 


its entirety. Only a few routines were modified. New program sections, 
such as those to manage the second side of the diskette, were simply 
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inserted. This also includes a new drive controller routine, called a job loop. 
In addition to the 1541 ROM, a whole set of new functions was 


implemented, which in particular handle the control of the WD 1770 
controller. | 


All told, the 1570/71 DOS consists of a hodge-podge of program 
fragments simply grouped together. The sad part is that as a result the disk 
drive is not very powerful or efficient, although it offers many technical 
possibilities. The slow transfer and load rates are not the fault of any bus 
procedures, but are the product of the slow DOS management alone. 


6.1.2 The most important DOS routines 


The DOS consists of a myriad of different routines. Many of these you 
cannot use because they were intended as subroutines. Here is a short list of 
some interesting ROM routines: 


$8162 Switch 1571 bus electronics to input. 
$81CE Switch 1571 bus electronics to output. 


S$85F9 Output byte on 1571 bus. 
The byte must be stored in $46. 


$864B Execute job. 
SF9 must contain the number of the buffer for the job 
is to be performed. The job table $00-$05 contains 
the job code. After execution of the job, X and A 
contain the return code of the job loop. If an error 
occurs during execution, the routine tries to execute 
the job again 

$8764 Turn on drive motor. 

$8770 Turn off drive motor. 

$877C Turn drive LED on. 


$878B Turn drive LED off. 
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$883C 


S884E 
$8861 
$8 9EF 


S89FD 


$9032 
$904E 


$93F3 


$98D9 
SF6D0 
SFEO0 


SFEOE 


Get error message from WD 1770. 
A and X contain the error code. 


Pass command in A to the WD 1770 command register. 
Wait for the WD 1770 to execute the command. 
Reset head to track 0. 


Test write protect A= $10: no write protect 
A= $00: write protect active 


Switch to 1541 mode. 
Switch to 1571 mode. 


Activate head on current disk side. 
C=0: side 1 C=1: side 2 


Convert 5 GCR bytes to 4 binary bytes. 
Convert 4 binary bytes to 5 GCR bytes. 
Switch head to read. 


Erase track (write with $55). 
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6.1.3 The zero-page 


The zero-page is the memory area $0000 to $00FF, which can be 
accessed especially quickly by certain 6502 machine language instructions. 
For this reason, important parameters and data which the DOS requires are 
stored here. | 


The addresses $00 to $11 have a special significance. These memory 
locations are used to pass commands and parameters to the job loop, which 
controls the disk drive. A memory location which stores the command for 
the action to be performed is reserved for each buffer. The job loop returns 
a message in this memory location which tells whether the command was 
performed without error or not. 


A large section of the zero-page is used for the management of files. 
Since the DOS is based on a two-drive system, a good deal of space is 
reserved for the second drive, which isn't even present. 


Some zero-page locations contain constants important for the operation 
of the disk drive. These include: 


57 $39 Marker for data block (8) 
104 $68 Flag for the initialization method 
106 $6A Number of read attempts 


These memory locations are initially set when the disk drive is turned 
on. After this the DOS always works with the values stored in these 
addresses. If, for example, you change the marker for a data block and then 
format a diskette in this manner, it cannot be read later with the normal 
marker. Another possibility is to define the number of read attempts as well 
as the behavior of the disk drive in the event of read errors in address $6A. 


Appendix C contains the complete zero-page listing. So you don't have 
to hunt through the whole book to find it, we have placed it near the end of 
the book. 
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6.1.4 DOS V3.0 in detail 


As we mentioned in Section 6.1.1, parts of the DOS are intended for 
double drive or multi-processor operation. But since it runs on a system 
with just one drive and one processor, the capabilities of the system are 
vastly underused. Furthermore, the management required for two drives is 
more extensive than that required for one, so the 1571 requires additional 
processing time without needing it. 


The style of buffer management is an especially notable leftover from 
the 4040 double drives. One, two, or even three buffers are required per file 
depending on the type. | | 


Since the disk drive can manage up to 5 files at a time, each file is 
assigned an internal channel. This channel is, in turn, assigned the required 
buffers. Beyond this there are tables which contain information about which 
buffers are currently needed, which data have not been processed yet, and 
sO on. 


As you see, an enormous amount of management work is necessary for 
even the smallest disk access, greatly reducing the speed of the 1571. 


When working with the DOS, you might want to keep its history in 
mind. We emphasize that it was not developed in one pass, but arose from 
versions of the preceding disk drives modified for the new drive. 


This DOS version has been changed, expanded, and extended three or 
four times. This increases the error rate, the amount of unnecessary 
management work, and above all, reduces the performance of the disk 
drive. 
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6.1.5 Errors in the DOS 


Naturally, the development of an operating system is not without error. 
Errors have struck the 1570/1571 as well. This concerns some functions 
and commands which do not operate in the desired manner, such as the 
block-allocate command, the replace function, and so on. 


In addition, there are some locations at which the ROM contains 
commands which make no sense. The largest group are the assembler 
instructions which do not make any sense, or are superfluous. The 
following addresses, among others, contain such constructions: 


S85DA $9396 $9690 SA605 $E853 SE9DA SEAA7 SF258 SFF13 


Some other DOS locations are erroneous. These errors are often so 
slight that they do not immediately make themselves known in a disk-drive 
system crash. Here is a short list of some mysterious DOS locations: 


$8056: Here some flags are masked out of $37 which do not have 
any control function. This indicates that the wrong flags 
are being masked, whereby the instruction should read 
"AND SBE". 


$8124/$826F: Here the flag for the real-time clock is activated (which is 
not even used in the DOS.) Since this action occurs in 
connection with the bus actions, it raises the suspicion that 
the nearby flag for the serial input/output register is 
intended. 


$BF57/BF75: This is a jump to a location where no program exists. 


$E69B: In this routine the SED command is used without disabling 
the interrupts. As a result, the job control loop will be 
called while the BCD arithmetic is activated. The fact that 
the proper control parameters will not be calculated should 
be obvious. 
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6.2 1570/1571 ROM listing 
6.2.1 Listing comments 


The ROM listing in Appendix A of this book differs from many other 
ROM listings in several respects. You may have noticed the curious 
superscripted (*) numbers following some memory addresses, or you may 
have wondered what the numbers in square brackets ([ ]) mean. These 
involve a cross reference. | 


The specifications about each ROM routine, enclosed in square 
brackets, name all locations in ROM which call this routine. If another 
location in the routine jumped to, this entry address will be named, followed 
by acolon. The address of the calling point is then given. Here are some 
examples: | | 


[1234/5678] This ROM routine called from 1234 and 5678. 

[EEEA:1652] The address EEEA in the ROM routine is © 
called from 1652. 

(5527:78ED,5652] The address 5527 is called from 78ED and 
5652. 


In addition to these cross references, comments are often given when 
the location is called via a vector or a program routine. Also, the comment 
"Routine not used" occurs from time to time. Furthermore, 
comparison addresses are given for some routines, in the form 
"cmp 1234" for example. These indicate that the same routine or a routine 
which performs the same function occurs at a different location in ROM. 
You should follow these references with interest in any event. If two 
identical routines are present, they are usually not commented identically. 
This way you can work with both versions of comments and therefore have 
a better, more comprehensive explanation of the ROM routine. 


Another type of cross reference is the superscripted numbers which 
appear after some addresses. These indicate that this address is called. This 
usually involves a relative jump instruction. This means that the locations 
from which these addresses are called appear 128 bytes before or after the 
address, which corresponds roughly to a page backward or forward. The 
number indicates how many such references exist. If you still cannot find an 
entry point, it may be that the data for this address are given in the header in 
the square brackets. Always check the header first. 
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Why are these cross references necessary? Take a look at address 
$93F3 in the ROM listing. A routine with a branch instruction is found at 
this address. It's necessary to determine what value the carry flag had when 
the routine was called. The specified addresses [895C, 9371 and 9B41] 
indicate the locations from which the routine $93F3 is called. From here 
you can determine what value the carry flag had. 


In addition, these cross references indicate which routines are used 
often. You can also tell that half of all DOS routines are called only once. 
Basically this does not involve subroutines, but program sections. The 
superscripted cross references usually have the value 1. But these cases are 
not particularly interesting. You should direct your attention to locations 
which are called from more than one point. In this manner you can 
understand the flow of a routine more quickly. 


In conclusion, a few words about the comments themselves. An attempt 
was made to comment all of the lines in the ROM listing. For some 
locations this was not very interesting, since it's hard to write exciting 
comments when the program itself is not exciting. At other locations a 
single line did not suffice to explain the routine. In these cases a small 
section with detailed explanations is often included. 
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6.3 1571 DOS Reader 


The following short program allows you to read sections of the 
1570/1571 DOS into the C-128 memory. You may then examine or modify 
the machine language routines using the C-128's built in machine language 
monitor. Input is done in hexadecimal and the contents of DOS memory are 
transferred to the same locations in C-128 memory. Some areas of the DOS 
will have to be transferred into different memory locations or banks in the 
C-128 so that memory conflicts do not occur. This is accomplished by 
changing the value of variable A in line 140 (POKE (A-VALUE) ). 


10 PRINT CHRS$(147)"1571 ROM READER TO C-128 
MEMORY" :PRINT 

20 OPEN 1,8,15 

30 INPUT "STARTING ADDRESS"; A$ 

40 A = DEC(AS) 

50 INPUT "ENDING ADDRESS ";BS 

60 B = DEC(BS) 

70 HI = INT (A/256) 

80 LO = A-256*HI 

90 PRINT#1,"M-R";CHRS (LO) ; CHRS (HT) 

100 REM READ DOS MEMORY 

110 GET#1,AS$ | 

120 PRINT CHRS (19) CHRS (17) CHR$ (17) CHRS (17) CHRS (17) 
"CURRENT ADDRESS ".»HEXS (A) 

130 IF A = B THEN 170 

140 POKE A, ASC (AS) 
-REM BANK1:POKE A,ASC(AS$) :BANK 15: REM BANK 1 

150 A = Atl 

160 GOTO 80 

170 MONITOR 
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a 
Appendix A 
1571 DOS Listing 


(ROM 


ROM checksum [used: 


Author acknowledgement 

8002 53 2F 57 20 2D 20 44 
800A 56 49 44 20 47 20 53 
8012 52 41 43 55 53 41 OD 
2F 57 20 2D 20 47 52 
47 20 42 52 4C 49 


[(CB63/806D: Vectors 80BE, 80C0, 80C6, 
Routine for User-O-command('U0') 


8030 AD 74 02 LDA $0274 
8033 C9 03 CMP #$03 
8035 90 2E BCC $8065 
8037 AD 02 02 LDA $0202 
803A 85 3B STA $3B 
803C 29 1F AND #S1F 
803E AA TAX 

803F OA ASL A 

8040 A8 TAY 

8041 B9 8E 80 LDA $808E,Y 
8044 85 75 STA $75 
8046 BO 8F 80 LDA $808F,Y 
8049 85 76 STA $76 
804B EO 1E CPX #$1E 
804D FO 07 BEQ $8056 
804F AD OF 18 LDA $180F 
8052 29 20 AND #$20 
8054 FO OF BEQ $8065 
8056+ AS 37 LDA $37 
8058 29 EB AND #SEB 
805A 85 37 STA $37 
805C BD 6E 80 LDA $806E,X 
805F 8D 02 02. STA $0202 
8062 6C 75 00 JMP ($0075) 
80651 AQ EA LDA #SEA 
8067 85 6B STA $6B 
8069 AQ FF LDA #$FF 
806B 85 6C STA $6C 
806D4 60 RTS 


Version 03) 


929D/92A4 } 


S/W - DAVID G 
SIRACUSA 

H/W - GREG 
BERLIN 

1985 


80C8] 


Get length of command string and 
test against smallest cmnd length 
Is the command less than 3 chars? 
NO, then get and note 

command number 

Limit number to range of 0-31 and 
mask control flag 

Double value (2-byte pointer in 
table) and set as pointer 

Get and set low-byte of above 
routine 

Take up high-byte of address 

in pointers $75/576 

check against 1541 status command 
Should a new command be executed? 
NO-Get flag for 1571/1541 range 
and test it 

Is drive in 1571 mode? 

YES— [Error; see 7.1.5] 

[useless bitflags will be] 
[masked out] 

Set jobcode of equivalent 

disk controller command 

Call routine 

Set pointer for 

table of 1541 

user command 

to SFFEA 

Return from subroutine 
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[805C] 

806E 80 
8076 00 
807E 80 
8086 00 


Jobcodes 
81 90 91 
01 BO O01 
81 90 91 
O1 BO O01 


to command routines 


BO Bl FO Fl 
00 01 00 01 
BO Bl FO Fl 
00 01 00 80 


Bito 


Bit1l-7 
SBO = 


1571 Internals 


Drive number 
: $80 = Read / $90 = Write 


Look for sector/SFO=Format 
= No job (Other function) 


[8041] 


808E 71 
8090 7F 
8092 EC 
8094 F8 
8096 8B 
8098 7F 
809A B7 
809C B7 
809E F1 
80A0 F1 
80A2 17 
80A4 7F 
S8OA6 6B 
80A8 7F 
SOAA A5 
80AC AS 
80AE 71 
80B0 7F 
80B2 EC 
80B4 F8 
80B6 8B 
80B8 7F 
80BA B7 
80BC B7 
80BE 6D 
80CO 6D 
80C2 17 
80C4 7F 
80C6 6D 
80C8 6D 
80CA E5 
80CC 80 


Addresses cf command routines 


Command number: 


Bito 
Bit1-3 
Bit4 : 
83 
83 
83 
83 
84 
83 
84 
84 
84 
84 
85 
83 
85 
83 
85 
85 
83 
83 
83 
83 
84 
83 
84 
84 
80 
80 
85 
83 
80 
80 
SF 
90 


Drive (0/1) 
function 
Diskette side 
0 / 00 
1 / 01 
2 / 02 
3 / 03 
4 / 04 
5 / 05 
6 / 06 
7 / 07 
8 / 08 
9 / 09 
10 / OA 
11 / OB 
12 / OC 
13 / OD 
14 / OE 
15 / OF 
16 / 10 
17 / 11 
18 / 12 
19 / 13 
20 / 14 
21 / 15 
22 / 16 
23 / 17 
24 / 18 
25 / 19 
26 / 1A 
27 / 1B 
28 / 1C 
29 / 1D 
30 / 1E 
31 / 1F 


(0/1) 


$8371 
$837F 
$83EC 
$83F8 
$848B 
$837F 
$84B7 
$84B7 
S84F1 
S84F1 
$8517 
$837F 
$856B 
$837F 
$85A5 
$85A5 
$8371 
$837F 
$83EC 
$83F8 
$848B 
$837F 
$84B7 
$84B7 
$806D 
$806D 
$8517 
$837F 
$806D 
$806D 
S8FE5 
$9080 


Read CP/M sector 
Error:'Drive Not Ready' 
Write CP/M sector 
Error:'Drive Not Ready' 
Read CP/M sectorheader 
Error: 'Drive Not Ready' 
Format CP/M diskette 
Format CP/M diskette 
Get/set CP/M sector set-up 
Get/set CP/M sector set-up 
Determine CP/M sector seq. 
Error:'Drive Not Ready' 
Get/set cmmand-status byte 
Error: 'Drive Not Ready’ 
Display "Syntax Error(31)' 
Display 'Syntax Error(31)'! 
Read CP/M sector 

Error: 'Drive Not Ready' 
Write CP/M sector 

Error: 'Drive Not Ready' 
Read CP/M sector header 
Error: 'Drive Not Ready’ 
Format CP/M diskette 
Format CP/M diskette 

No function (rts) 

No function (rts) 
Determine sector sequence 
Error: 'Drive Not Ready' 

No function (rts) 

No function (rts) 

Execute 1571 status comand 
Load file over 1571 bus 
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Take command from serial bus 


[A7BA] 

80CE 78 
80CF AQ 
80D1 85 
80D3 85 
80D5 85 
80D7 A2 
80D9 9A 
80DA 20 
80DD AQ 
80DF 85 
80E1 85 
80E3 20 
80E6 20 
80E9 AD 
80EC 09 
80EE 8D 
g0F1+ ap 
80F4 10 
80F6 29 
80F8 DO 
80FA: 20 
80FD C9 
80FF DO 
8101 A5 
8103 29 
8105 85 
8107 AQ 
8109 85 
810B FO 
gi0p! c9 
810F DO 
8111 AS 
8113 29 
8115 385 
8117 AQ 
8119 85 
g11B1 4c 
g11E+ cS 
8120 DO 
8122 AQ 
8124 85 
8126 AQ 
8128 85 
812A FO 


00 
71C 
19 
7A 
45 


B2 
80 
F8 
7D 
B7 
A5 
00 
10 
00 
00 
64 
04 
F7 
CA 
3F 
OC 
37 
BF 
37 
00 
719 
OE 
oF 
OD 
37 
BF 
37 
00 
TA 
92 
78 
OA 
01 
TA 
00 
19 
29 


81 


E9 
E9 
18 


18 
18 


82 


81 


SEI 
LDA 
STA 
STA 
STA 
LDX 
TXS 
JSR 
LDA 
STA 
STA 
JSR 
JSR 
LDA 
ORA 
STA 
LDA 
BPL 
AND 
BNE 
JSR 
CMP 
BNE 
LDA 
AND 
STA 
LDA 
STA 
BEQ 
CMP 
BNE 
LDA 
AND 


#$00 
$7C 
$79 
STA 
#$45 


$81B2 
#$80 
SF8: 
$7D 
SE9B7 
SEQAS5 
$1800 
#$10 
$1800 
$1800 
S815A 
#$04 
S80F1 
$82CA 
#$3F 
$810D 
$37 
#SBF 
$37 
#$00 
$79 
$811B 
#S5F 
$811E 
$37 
#SBF 
$37 
#$00 
STA 
$8192 
$78 
$812C 
#$01 
S7A 
#$00 
$79 
$8155 
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(ATN encountered) 


Disable bus/controller interrupt 
Clear pointer and flags : 
Receive flag for ATN from bus 
Flag for Listen 

Flag for Talk 

Stack pointer 

initialization 

Switch 1571 bus for input 

Set flag for last char (EOI = End 
of Information) 

Clear flag for 'ATN observed! 
Clock output to low 

Data output to high 

Get bus control register and 

set ATN output 

to high 

Check ATN input 

Is ATIN set? 

YES— Get clock input 

Is clock set? 

NO-—Get command byte from bus 
Compare with value for 'Unlisten' 
Should Listener complete work? 
YES—Get bus control flag 

and set flag for 

'1541-bus mode' 

Clear flag for 

Listen 

Jump to $811B 

Compare with value for 'Untalk' 
Should Talker. finish its work? 
YES—Get bus control flag 

and set Flag for 

'1541-bus mode' 

Clear Flag for 

Talk 

Wait until ATN-mode is available 
Compare w/device address for Talk 
Is Talk addressed? 

YES—-Set flag for 

'Talk receive' 

Clear Flag for 

Listen 

Jump to $8155 
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SaaS SSS SSeS 


gi2cl 
812E 
8130 
8132 
8134 
8136 
8138 
gi3al 
813B 
813D 
813F 
8141 
8142 
8144 
8146 
8148 
814A 
814C 
814E 
8150 
8151 
8154 


C5 
DO 


29 


29 


77 
OA 
01 
719 
00 
7A 
1B 


60 
60 
4C 


84 
OF 
83 
84 
FO 
E0 
42 


CO DA 


81552 2c 00 18 


[A9B3] 


8158 
815A 
815C 
815E 
8161 
8163 
8166 
8168 
816A 
816C 
816E 
81711 
8174 
81772 
8179 
817B 
817E 
8181 
8184. 
8187 
8isal 
gispl 


AO 
00 
7D 
00 18 
EF 
00 18 
719 
OD 
37 
03 
99 81 
42 83 
6B 83 
7A 
OF 
9C EQ 
AE E9 
83 A4 
EA 81 
83 A4 
66 83 
10 


Steer bus to 


BMI 
LDA 
STA 
LDA 
AND 
STA 
LDA 
BEQ 


ATN command 


S80FA 
#$00 
$7D 
$1800 
#SEF 
$1800 
$79 
$8177 
$37 
$8171 
$8199 
$8342 
$836B 
S7A 
$818A 
SE99C 
SEQAE 


SA483 


$81EA 
SA483 
$8366 
#510 


Compare w/ device addr for Listen 
Is Listen addressed? 

YES—Set Flag for 

‘listen received' 

Clear flag for 

Talk 

Jump to $8155 

Mark ATN-command 

Isolate cntrl bits/Talk & Listen 
& test against value f/'both set’ 
Will channel # be transmitted? 
YES—Repeat and set 

original secondary address; 
Establish and set number of 
abovementioned disk channel; 

Get orig/2ndary addr (ATN-command) 
and isolate command bits 

Is Bit? (Open/Close) also set? 
Should the channel be closed? 
YES—Enable bus/controler interupt 
Close channel&close current files 
Disable bus/controller interrupt 
Test ATN input 


Is ATN still set? 

NO-Clear flag for 

'ATN active’ 

Get bus control register 
and clear ATN output 

again 

Get flag for Listen 

Is the bus in Listener mode? 
NO-—Test bus control flag 
Is bus in 1571 mode? 
YES—Send DRF code 

Take data from bus to 
command waitloop 

Get flag for talk 

Is the bus in Talker mode? 
Set Data output to low 

Set Clock output to high 
approx. 80 cycle delay 
Give data over bus after talk 
approx. 80 cycle delay 

to command waitloop 

Set ATN output to high 
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STA 
BIT 
BPL 
BMI 


$1800 
$1800 
$815A 
$8192 


Set Data and Clock to low 

Test ATN 

Is ATN set? 

YES-Wait til ATN is cleared again 


818F 8D 00 18 
81923 2c 00 18 
8195 10 C3 
8197 30 F9 
[816E/81A1] 
Send DRF (Device 
8199 20 59 EA 
819C 20 CO EQ 
819F 29 04 
81Al DO F6 
81A3 20 CE 81 
81A6 A9 00 
81A8 8D 0C 40 
81AB A9 08 
giaD! 2c oD 40 
81B0 FO FB 


Request Fast) to 


JSR 
JSR 
AND 
BNE 
JSR 
LDA 
STA 


SEAS9 
SE9CO 
#$04 
$8199 
$81CE 
#$00 


computer (fast bus mode) 

Check for ATN command mode 

Read bus reg. by constant values 
and isolate Clock input 

Is Clock set? 

NO—Switch 1571 to output 

DRF Signal 

in serial output register 
Bitflag for serial register empty 
Get output status 

Is data byte transferred? 


[80DA/836B/846D/8591/8EAC/A61F/A7AD] 
Switch 1571 bus to input 


81B2 
81B3 
81B4 
81B7 
81B9 
81BC 
81BF 
81C1 
81C4 


08 
78 


PHP 
SEI 
LDA 
AND 
STA 
LDA 
AND 
STA 
LDA 


$400E 
#SBF 
S400E 
$180F 
#SFD 
$180F 
#$84 
$400D 
$400D 


Retain processor status 
Disable bus/controller interrupt 
YES-—Get control register 
Switch serial connection 

to input 

Set control bit for 

1571 bus turn to 

input mode 

(Error; see 7.1.5] 
[Real-time clock not used] 
Reset last interrupt flag 
Reset processor status 
Return from this subroutine 


[81A3/8394/8461/84F6/8533/8582/8E93/8E9A/ 9080] 
Switch 1571 bus to output | 


81CE 
81CF 
81D0 
81D3 
81D5 
81D8 
81DB 
81DD 
81E0 
81E2 
81E5 


08 


OF 18 
02 
OF 18 
OE 40 
40 
OE 40 
08 
OD 40 
OD 40 


PHP 
SEI 
LDA 
ORA 
STA 
LDA 
ORA 
STA 
LDA 
STA 
BIT 


$180F 
#$02 
$180F 
S400E 
#540 
S400E 
#508 
$400D 
$400D 


Retain processor status 
Disable bus/controller interrupt 
Set control bit for 

1571 bus direction to 

output mode 

Switch serial register 

to 

output 

Limit interrupt from 

"byte input/output’ 

Clear flag from last interrupt 
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Set processor status again 
Return from this subroutine 


81E8 28 

81E9 60 
[8184] cf. E909 
Output file data 
81EA 78 

81EB 20 EB DO 
81EE BO 06 
girol a6 82 
81F2 BS F2 
81F4 30 01 
81F61 60 

8iF71 20 59 EA 
81FA 20 CO £9 
81FD 29 01 
81FF 08 

8200 20 B7 E9 
8203 28 

8204 FO 12 
8206! 20 59 EA 
8209 20 CO E9 
820C 29 01 
820E DO F6 
8210 A6 82 
8212 BS F2 
8214 29 08 
8216 DO 14 
82182 20 59 FA 
821B 20 CO £9 
821E 29 01 
8220 DO F6 
82221 20 59 EA 
8225 20 CO E9 
8228 2901 
822A FO F6 
822C2 20 AE EQ 
822F 20 59 FA 
8232 20 CO B9 
8235 29 01 
8237 DO F3 
8239 24 37 
823B 50 39 


over bus (1571 mode) 


SEI 
JSR 
BCS 
LDX 
LDA 
BMI 
RTS 
JSR 
JSR 
AND 
PHP 
JSR 
PLP 
BEQ 
JSR 
JSR 
AND 
BNE 
LDX 
LDA 
AND 
BNE 
JSR 
JSR 
AND 
BNE 
JSR 
JSR 
AND 
BEQ 
JSR 
JSR 
JSR 
AND 


SDOEB 
$81F6 
$82 

SF2,X 
$81F7 


SEA59 
SE9CO 
#$01 


SE9B7 


$8218 
SEAS9 
SE9CO 
#$501 
$8206 
$82 
SF2,X 
#508 
$822C 
SEA59 
SE9CO 
#501 
$8218 
SEA5S9 
SE9CO 
#501 
$8222 
SEQAE 
SEA59 
SE9CO 


Disable bus/controller interrupt 


Determine internal channel number 


Has channel been found? 

YES—Get number of channel 
Determine appropriate bus status 
Channel active? 

NO-Return from this subroutine 
Test for ATN command mode 

Get constant value/bus cntrl reg 
and test for Data input 

Mark result 

Set Clock output for high 

Repeat status of Data line 

Is Data set? 

YES—Test for ATN command mode 

Get value--bus control registers 
and get status of data input 

Is data still set? 

NO-—Get number of current channel 
and get corresponding bus status 
Test EOI (End of Information) flag 
Is last byte being transferred? 
NO—Check with ATN command mode 
Get value of bus control register 
& determine status of Data input 
Is Data set? 

NO-Check against ATN command mode 
Get val from bus control register 
and test status of Data input 

Is Data set now? 

YES—Set Clock output to high 

Test for ATN command mode 

Get val from bus control register 
and isolate Data input 

Is Data set? 

NO—Test flag for bus mode 

Is Bus in 1571 mode? 
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Output byte 


823D 
8240 
8242 
8245 
8248 
824A 
824D 
8250 
8252 
8255 
g2581 
825B 
825D 
825F 
8262 
8264 
8267 
826A 


AD 
09 
8D 
AD 
09 


OF 
02 
OF 
OE 
40 
OE 
OD 
82 
3E 
OC 
OD 
08 
F9 
OE 
BF 
OE 
OF 
FD 
OF 


over 1571 bus 


18 


18 
40 


40 
40 


02 
40 
40 


LDA 
ORA 
STA 
LDA 
ORA 
STA 
BIT 
LDX 
LDA 
STA 
LDA 
AND 
BEQ 
LDA 
AND 
STA 
LDA 
AND 
STA 


$180F 
#$02 
$180F 
$400E 
#$40 
$400E 
$400D 
$82 


$023E,% 


$400C 
$400D 
#$08 
$8258 
S400E 
#SBF 
$400E 
$180F 
#SFD 


YES—-1571 bus circuitry 

switched to 

output mode (Bit 1 = 1) 

Turn serial 

output register 

to output 

Reset interrupt register 

Number of current channel 

Get data byte/channel to transfer 
and get status of output 
register; 

See if output register is empty 
Is byte transferred? 

YES-Switch serial register 

to an 

input register 

Bus circuitry back 


to input 
mode (Bitl =0) 
[Error—see 7.1.54] 


[Real-time clock not used here] 
Jump to $82B2 


Output byte 


82761 
8278 
g27A1 
827D 
827F 
82811 
8283 
8286 
8287 
828A 
828C 
828F 
g2911 
g2941 
8297 
8299 
829B 
829F 
82A1 
82A4 
82A6 
82A8 


A9 
85 
20 
29 
DO 
A6 
BD 
6A 


08 
98 
CO 
O01 
43 
82 
3E 


3E 
05 
A5 
03 
9C 
TE 
23 
E6 
83 
B7 
TE 
23 
03 
83 


B9 


02 


02 


E9 


B9 


A4 


A4 
E9 
A4 


A4 


1541 bus 


LDA 
STA 
JSR 
AND 
BNE 
LDX 
LDA 
ROR 
STA 
BCS 
JSR 
BNE 
JSR 
JSR 
LDA 
BNE 
JSR 
JSR 
JSR 
LDA 
BNE 

JSR 


#508 
$98 
SE9CO 
#$01 
$82C4 
$82 


S$O23E,X 


A 


$023E,X 


$8291 
SE9A5 
$8294 
SE99C 
SA47E 
$23 

$8281 
SA483 
SE9B7 
SA47E 
$23 

S82AB 
$A483 


Set number of bits per byte 

in counter 

Get bus control register and 
check Data input 

Is Data set? 

NO-—Get current channel number and 
determine appropriate data byte 
Take a bit from there & mark the 
remainder of the byte 
Is Bit at 1? 

NO-Set Data output to 
Jump to $8294 

Switch Data output to low 
approx. 45 cycle delay 

Flag for 1541/1540 bus delay 
Is bus in 1541 mode? 
YES—approx. 80 cycles delay 
Set Clock output to low 
approx. 45 cycle delay 

Flag for 1541/1540 bus delay 
Is bus in 1541 mode? 
YES—approx. 80 cycle delay 


high 
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g2aBl 
82AE 
82B0 
82B22 
82B5 
82B8 
82BA 
82BC 


FB FE 
98 
C8 
59 EA 
CO E9 
01 
F6 


AA D3 


Set Clock on high and Data on low 
Counter for bits transferred 

Is byte transferred? 

YES—Test for ATN command mode 

Get bus control register and 
take up DATA input 

Is Data set? 

YES—Enable bus/controler interupt 
Read next byte from file 

Disable bus/controller interrupt 
get ready for output again 

Back to command wait loop 


[8358] 
Read command byte from 1571 bus 


82C7 
82CA 
82CC 
g2cEl 
82D1 
82D4 
82D6 
82D8 
82DB 
g2pp1 
82E0 
82E2 
g2E51 
82E8 
82EB 
82ED 
82EF 
82F2 
82F4 
82F6 
gore 
82FB 
g2rpl 
82FE 
8300 
83031 
8306 
8309 
830B 
830D 
830F 
83112 


2C 


OD 40 
08 
98 
99 EA 
CO E9 
04 
F6 
9C EQ 
01 
00 18 
FB 
05 18 
59 EA 
OD 18 
40 
09 
CO EQ 
04 
EF 
19 
A5 E9 
18 


FD 
9C E9 
59 EA 
CO E9 
04 
F6 
00 
F8 
00 18 


BIT 
LDA 
STA 
JSR 
JSR 
AND 
BNE 
JSR 
LDA 
BIT 
BNE 
STA 
JSR 
LDA 
AND 
BNE 
JSR 
AND 
BEO 
BNE 
JSR 
LDX 
DEX 
BNE 
JSR 
JSR 
JSR 
AND 
BEQ 
LDA 
STA 
LDA 


$400D 
#508 
$98 
SEA59 
SE9CO 
#504 
$82CE 
SE99C 
#$01 
$1800 
$82DD 
$1805 
SEA59 
$180D 
#540 
$82F8 
SE9CO 
#$04 
$82E5 
$8311 
SE9A5 
#$18 


$82FD 
SE99C 
SEA59 
SE9CO 
#504 
$8303 
#500 
SF8 
$1800 


Reset interrupt register 
Determine # of bits to transfer 
per byte 

Test for ATN command mode and 
read bus control register 

Test Clock input 

Is Clock set? 

NO-Set Data output to high 

Test Data input in 

bus control register 

Is Data still set? 

Set Timer 1 (highbyte) (1) 
Test for ATN command mode 

Test interrupt flag for 

‘Timer 1 running' 

Have 256 time-cycles passed? 
NO-Get val f/bus control register 
and test Clock input 

Is Clock set? 

YES—Jump to $8311 

Set Data output to high 

Wait loop: 

Wait about 

O.1 ms 

Set Data output to low 

Test for ATN command mode 

Get value of bus control register 
and isolate Clock input 

Is Clock still set? 

YES-Set flag:'last byte received' 
(EOT) 


Determine, invert and mark 
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value of 

data input 

Get flag:'serial input register 
full' 

Has a byte been received? 
YES—Read byte out of register 
and save current data byte; 
end 

Get inverted data value again 
and save in Carry 

Test Clock input 

Was Clock set simultaneously? 
YES—Take data bit in data byte 
Test on ATN-command mode 

Get bus control register 

Test Clock input 

Is Clock still set? 
NO—Counter for # of data bits 
Is entire byte received? 
YES-—Set Data output to low 
Get Data byte 

Return from this subroutine 


8314 49 Ol EOR 
8316 AA TAX 
8317 AD OD 40. LDA 
831A 29 08 AND 
831C FO 08 BEQ 
831E AD OC 40. LDA 
8321 85 85 STA 
8323 4C 3C 83. JMP 
8326! 8a TXA 
8327 4A LSR 
8328 29 02 AND 
832A DO ES BNE 
832C 66 85 ROR 
832F/ 20 59 FA JSR 
8331 20 C0 F9 JSR 
8334 29 04 AND 
8336 FO F6 BEQ 
8338 C6 98 DEC 
833A DO DS BNE 
g33c! 20 A5 F9 JSR 
833F AS 85 LDA 
8341 60 RTS 
[8171/835F] cf EA2E 
Take byte from bus 

8342 78 SEI 
8343 20 07 Dl JSR 
8346 BO 05 BCS 
8348 BS F2 LDA 
834A 6A ROR 
834B BO OB BCS 
834D! as 84 LDA 
834F 29 FO AND 
8351 C9 FO CMP 
8353 FO 03 BEQ 
8355 4C 66 83. JMP 


83582 20 C7 82. JSR 


Disable bus/controller interrupt 
Determine internal channel number 
Has channel been found? 
YES—Status of channel 

Test flag for write mode 

Is channel opened for writing? 
NO-—Get current secondary address 
and command bits; test against 
‘close channel '! 


‘Should channel be ended? 


NO-Return to command waitloop 
Get byte from 1571 bus 

Enable bus/controller interrupt 
Write byte in file 

some more 


835C 20 B? CF JSR 
835F 4C 42 83 JMP 
[82C4] 

Set bus back; return 
8362 A9 O00 LDA 
8364 85 37 STA 


to command waitloop 


#500 
$37 


Clear bus 
status byte 
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SSS eS es 


[818A/8355] Set bus back; maintain mode 


8366 A9 00 LDA #$00 Set Data- and Clock output 
8368 8D 00 18 STA $1800 to low 

[8174/E698/E8EA/EA53] 

Wait for next command 

836B 20 B2 81 JSR $81B2 Switch 1571 bus to input mode 
836E 4C E7 EB JMP SEBE7 Wait for next computer command 


[Origin over vector in 808E/80AE throuh routine $8030] 
Read CP/M sector; previous error test 


8371 8D 4D 02 STA $024D Save jobcode of routine 

8374 85 5F STA S5F from table S806E 

8376 AD OD 18 LDA $180D Test CA2 input (circuitry shows 
8379 4A LSR A "Write Protect' has interrupted) 
837A 90 18 BCC $8394 Has diskette been changed? 

837C A2 OB LDX #S0B YES—Error #:'ID Mismatch Error' 
837E 2C -byte $2C Transfr next 2 bytes(bit command) 


[Origin of vector; : 8090/8098/80A4/80A8/80B0/80B8/80C4 thru $8030] 
Display error 'drive not ready' 

837F A2 4F LDX #S4F Error # for 'drive not ready' 
[83C7/844A/84B4/8E42/8384: 8DBC} 

Combine command status flag and output with error 

8381 20 E9 85 JSR $85E9 Set up byte for output 

8384 20 81 85 JSR $8581 Output message over 1571 bus 


[84EE] eventual error output (else return) 


8387 EO 02 CPX #$02 Compare # with value for 'OK' 
8389 BO O1 BCS $838C Is an error set? 
838B 60 RTS NO-Return from this subroutine 


[8389/8484/8568/875C] 
Output error message (number in X) 


838C 8A TXA Get error number and 

838D 29 OF AND #SOF determine proper error number 
838F A2 00 LDX #S$00 Set buffer number 0 

8391 4C OA E6 JMP SE60A Prepare message text 

[837A] 

Read CP/M sector 

8394 20 CE 81 JSR $81CE Switch 1571 bus for output 
8397 24 5E BIT SSE Get command status byte 

8399 10 05 BPL $83A0 Is flag set for IBM-34 diskette? 
839B AQ 09 LDA #$09 YES—Execute routine at $8D67 
839D 4C E6 86 JMP S86E6 (read IBM system-34 sector) 
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$C63D 


$3B 
#$20 
$83D0 
$0203 
$06 
$0204 
$07 
#500 
SSF 
$00,X 
S865E 


S85E9 
$3B 
$83C9 
#$02 
$8381 
S85F9 
$3B 
$83DD 
#$00 


$0300,Y 


$46 
S85F9 


$83D2 
$0205 
$83E8 
S$861E 


Initialize Commodore diskette 
Enable bus/controller interrupt 
Get command number and test 
‘sector not read' flag 

Only buffer to be transferred? 
NO-—Get fourth char. from command 
string; take up as track number 
Get fifth char. and set as sector 
number of job 

Choose buffer number 0 

Get current jobcode and 

give to job loop 

Execute job 

Disable bus/controller interrupt 
Prepare return message for output 
Test flag for ‘error test' 

Return message to be considered? 
YES-Test return jobmessage w/'OK' 
Job run error-free? 

YES-Send return message over bus 
Test flag for ‘output buffer' 
Buffer transferred to computer 
YES-Buffer pntr to start of buffr 
Get byte from buffer and set as 
character to be given 

Output character over 1571 bus 
Turn buffer pointer to next byte 
Entire buffer been transferred? 
YES—Number of sector to be read 
All sectors already? 

NO-Set number of next sector 
Read next sector 

Enable bus/controller interrupt 
Get new track and set it 


over vectors in 8092/80B2 through routine $8030] 


Write CP/M sector; previous error check 


83A01 20 3D Cé 
83A3! 58 

83A4 AS 3B 
83A6 29 20 
83A8 DO 26 
83AA AD 03 02 
83AD 85 06 
83AF AD 04 02 
83B2 85 07 
83B4 A2 00 
83B6 AS SF 
83B8 95 00 
83BA 20 SE 86 
83BD 78 

83BE 20 E9 85 
83Cl 24 3B 
83C3 70 04 
83C5 EO 02 
83C7 BO B8 
g3c91 20 F9 85 
83CC AS 3B 
83CE 30 OD 
83p01 ao 00 
83D2! B9 00 03 
83D5 85 46 
83D7 20 F9 85 
83DA C8 

83DB DO FS5 
83DD+ CE 05 02 
83E0 FO 06 
83E2 20 1E 86 
83E5 4C A3 83 
g3E8! 58 

83E9 4C AF 85 
[Originates 
83EC 8D 4D 02 
83EF AD OD 18 
83F2 4A 

83F3 90 OD 
83F5 A2 OB 
83F7 2c 


STA 


$024D 


LDA $180D 
LSR A 


BCC 
LDX 


$8402 
#S50B 


-byte $2C 


Save jobcode 

Test CA2 input (Circuitry shows 
‘write protect' has interrupted) 
Has diskette been exchanged? 
YES-error #:'ID Mismatch Error' 
Jump to next 2 bytes(bit command) 
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Error: ‘drive not ready' 

set as character to be given 
Transfer ‘error found! 

flag into 

command number 


83F8 A2 4F LDX 
83FA 86 46 STX 
83FC AS 3B LDA 
83FE 09 08 ORA 
8400 85 3B STA 
[83F3] 

Write CP/M sector 
8402 24 SE BIT 
8404 10 05 BPL 
8406 A9 OA LDA 


8408 4C E6 86  JMP 
840B+ 20 3D c6é JSR 


840E AS 3B LDA 
8410 30 29 BMI 
84121 78 SEI 
8413 AO 00 LDY 
84151 AD 00 18 ~LDA 
8418 49 08 EOR 


841A 2C OD 40. BIT 
841D 8D 0018 STA 
84201 aD 00 18 + ~LDA 
8423 10 03 BPL 
8425 2059 EA JSR 
84281 aD OD 40. ~=LDA 
842B 29 08 AND 
842D FO Fl BEQ 
842F AD 0C 40. LDA 
8432 99 00 03. STA 


8435 C8 INY 
8436 DO DD BNE 
8438 20B7 E9 JSR 
843B! 58 CLI 
843C AS 3B LDA 
843E 29 20 AND 
8440 DO 37 BNE 
8442 AS 3B LDA 
8444 29 08 AND 
8446 FO 05 BEQ 
8448 A6 46 LDX 


844A 4C 81 83. JMP 
844D/ ap 03 02. +~LDA 


8450 85 06 STA 
8452 AD 04 02 LDA 
8455 85 07 STA 
8457 A2 00 LDX 


$0300,Y 


$8415 
SE9B7 


$3B 
#$20 
$8479 
$3B 
#$08 
$844D 
$46 
$8381 
$0203 
S06 
$0204 
$07 
#$00 


Test command status byte 

Flag for IBM-34 diskette set? 
YES—Execute routine at S8DF6 
(Write IBM System 34 CP/M sector) 
Initialize Commodore diskette 
Flag: 'Buffer read from computer' 
Is flag in command byte set? 
YES—Disable bus/controler intrupt 
Set buffer pntr to start-of-buffr 
Get bus control register 

Switch status of Clock output 

Set interrupt register back 

Set new Clock output value 

Test ATN input 

Is ATN set? 

YES—Test for ATN command mode 
Test 'Byte in serial register 
received' flag 

Has a byte been read in? 

YES—Get byte and write 

in buffer 0 

Turn buffer pointer to next byte 
Buffer already full 

YES-Set Clock output to low 
Enable bus/controller interrupt 
Get command byte and test 

‘Sector not written' flag 

Set? 

NO—-Retest 'error found’ 

flag in command number 

Should error be displayed? 
YES—Get number of error 

and send over 1571 bus 

Get 4h char. from command string 
and set as track for job loop 
Get Sth char. from command string 
and set as sector for job loop 
Choose buffer 0 
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8459 Ag 
845B 95 
845D 20 
8460 78 
8461 20 
8464 20 
8467 20 
846A 20 
846D 20 
8470 58 
8471 24 
8473 70 
8475 EO 
8477 BO 
84792 CE 
847C FO 
847E 20 
8481 4c 
84841 4c 
g4ggl 58 
8488 4C 


5E 86 


CE 81 
E9 85 
F9 85 
AO 86 
B2 81 


Give jobcode for 'write sector' 
to job loop 

and execute 

Disable bus/controller interrupt 
Switch 1571 bus to output 
Prepare return message for output 
Output byte over 1571 bus; wait 
for shift from clock 

Switch 1571 bus to input 

Enable bus/controller interrupt 
Test ‘error test' flag 

Should error return message be 
regarded? YES—Test error number 
Is job running error-free? 
YES—Counter for sectors 

Still a sector? 

YES-Calculate new sector number 
Run routine again 

Return to command waitloop 
Enable bus/controller interrupt 
Set new track and end 


[Origin over vectors 


8096/80B6 of routine $8030] 


Read next CP/M sector header(first System-34,then Commodore format) 


848B AD 
848E 29 
8490 DO 
8492 AQ 
8494 8D 
8497 AQ 
8499 20 
849C AE 
849F E0 
84A1 90 
8403 A2 
84A5 86 
84A7 AQ 
84A9 8D 
84AC 95 
84AE 20 
84B1 2C 
g4B21 a2 
g4B4! ac 


02 02 
O01 
20 
01 
OD 18 
05 
E6 86 
BO 01 
02 
11 
00 
SE 
BO 
4D 02 
00 
SE 86 


4¥ 
81 83 


LDA $0202 
AND #S$01 
BNE $84B2 
LDA #$01 
STA $180D 
LDA #$05 
JSR S86E6 
LDX $01B0 
CPX #$02 

BCC $84B4 
LDX #$00 

STX SSE 

LDA #S$BO 

STA $024D 
STA $00,X 
JSR $865E 
-byte $2C 
LDX #S$4F 

JMP $8381 


Get Jobcode 

and determine drive # from it 

Is drive 0 contacted? 

YES-Clear ‘Write protect has been 
interrupted’ (disk exchange) | 
Execute routine at $8A09 

(Read IBM System 34) 

Get return message and compare 
with value for 'Ok' 

Run into an error? 

YES—Clear command status byte 
Save the 

jobcode for 'Search sector' 

and give to 

job loop 

Execute job 

Jump to next 2 bytes(bit command) 
Error # for ‘drive not ready' 
Display return message,next cmd 
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[Origin over vectors 809A/809C/80BA/80BC through routine $8030] 
Format CP/M diskette 


84B7 AD 02 02 LDA $0202 Get jobcode and 

84BA 29 O1 AND #S01 determine drive to be utilized 
84BC DO 2B BNE $84E9 Should format be done in dr. 0? 
84BE AD 03 02 LDA $0203 YES—Get flag for diskette type 
84C1 10 05 BPL $84C8 Is Commodore format desired? 

84C3 AX 08 LDA #$08 NO—Format disk in IBM System34 
84C5 4C E6 86 JMP S86E6 format (routine $8C57) 

sa4ce ago oo LDA #$00 Clear command status byte 

84CA 85 5E STA S5E (delete) 

84CC 85 FF STA SFF : Set drive status to 'ready' 

84CE AD 04 02 LDA $0204 Get 5th char. from command string 
84D1 85 12 STA $12 and take on as first ID character 
84D3 AD O05 02 LDA $0205 Get 6th char. from command string 
84D6 85 13 STA $13 and store as 2nd character of ID 
84D8 20 07 D3 JSR $D307 Close all channels 

84DB AQ Ol LDA #S01 Set track number 1 as 

84DD 85 80 STA $80 current track 

84DF AQ FF LDA #SFF Format disk in 1571/1541 format 
84E1 8D 98 02 STA $0298 Get return message 

84E4 20 89 AQ JSR SA989 and prepare for output 

84E7 AA TAX Send message over 1571 bus, end 
84E8 2C ~byte $2C Jump to next 2 bytes(bit command) 
g4n91 a2 4F LDX #S$4F Error # for 'drive not ready' 
84EB 20 E9 85 JSR $85E9 Prepare byte for output 

84EE 4C 87 83 JMP $8387 | Prepare error message 


[Origin of vector 809C/80A0 through routine $8030] 
Get /set CP/M sector format 


84F1 78 SEI Disable bus/controller interrupt 
84F2 24 3B BIT $3B check command number 

84F4 10 OA BPL $8500 read sector format? 

84F6 20 CE 81 JSR $81CE YES—switch 1571 bus for output 
84F9 A5 3c LDA $3C Get sector format and store 

84FB 85 46 STA $46 as byte to be output 

84FD 4C FO 85 JMP S$85F9 Send byte over 1571 bus 

85001 ag 74 02 LDX $0274 Determine length of comand string 
8503 EO 04 CPX #$04 & test if exactly 3 char. long 
8505 BO OA BCS $8511 Exactly 3 char. in buffer? 

8507 A2 OE LDX #SOE YES—Error code for ‘Syntax Error' 
8509 20 E9 85 JSR $85E9 Prepare error for output 

850C AY 31 LDA #531 Error message 

850E 4C C8 Cl JMP $C1C8 Output '31 Syntax Error' 

85111 ap 03 02 LDA $0203 Get byte f/emd string(4th char) 
8514 85 3c STA $3C and use as new sector format 
8516 60 RTS Return to caller 
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[Origin over vector in 80A2/80C2 by routine $8030] 
Read CP/M sector header and determine sector sequence 


8517 
851A 
851C 
851E 
8520 
8523 
8526 
8528 
852A 
852D 
8530 
8531 
85321 
8533 
8536 
8538 
853A 
853D 
8540 
8542 
8544 
8546 
8548 
854B 
854D 
854F 
8552 
8554 
8556 
8559 
855B 
855D 
8560 
8561 


20 8B 
24 SE 
10 48 
AQ OD 
20 E6 
AE BO 
EO 02 
BO 08 
20 61 
20 86 


AE BO 


84 


86 
O01 


89 
89 


81 


85 


O01 


85 


85 


85 


85 


85 


JSR 
BIT 
BPL 
LDA 
JSR 
LDX 
CPX 
BCS 
JSR 
JSR 
TXA 
PHA 
SEI 
JSR 
LDA 
STA 
JSR 
LDX 
CPX 
BCS 
LDA 
STA 
JSR 
LDA 
STA 
JSR 
LDA 
STA 
JSR 
LDA 
STA 
JSR 


$848B 
SSE 
$8566 
#$0D 
S86E6 
$01B0 
#$02 
$8532 
$8961 
$8986 


Read next header 


.Test cmd status byte w/IBM flag 


Is flag set for IBM-34 diskette? 
YES—Execute routine at S$8F5F 
(Set up sector sequence table) 
Get return message; compare with 
value for 'Ok' 

Is there an error? 

NO-Get lowest and highest sectors 
Compute sector format 

Get sector format 

and record it 

Disable bus/controller interrupt 
Switch 1571 bus for output 

Get command status byte,set as 
character to be output 

Send byte over 1571 bus 

Get error number and compare 
with value for 'Ok' 

Is there an error? 

NO-Set number of sectors in 
track as character to be output 
Send byte over 1571 bus 

Set # of track read as character 
to be output 

Send byte over 1571 bus 

Set smallest sector # as char. 
to be output 

Send byte over 1571 bus 

Set greatest sector number as 
character to be output 

Send byte over 1571 bus 

Get sector format & set as char. 
to be output 

Send byte over 1571 bus 

Return to caller 

Fix stack 

Display error message 


(Origin over vector in 80A6 by routine $8030} 
Get command status byte / set it; get error number 


856B 
856D 
856F 
8571 


24 3B 
10 27 
24 3B 
50 OE 


BIT 
BPL 
BIT 
BVC 


$3B 
$8596 
$3B 
$8581 


Test command number 

Get command status byte? 
Test flag in command number 
Check for diskette exchange? 


ROM - 15 





Abacus Software 1571 Internals 
8573 AD OD 18 LDA $180D YES—Test hardware signal for 

8576 4A LSR A 'Write protect has interrupted! 
8577 90 08 BCC $8581 Has diskette been exchanged? 

8579 AS SE LDA S5E Get command status byte 

857B 29 FO AND #SFO0 and set up flag 

857D 09 OB ORA #SOB Set error # for 'ID Mismatch'. 
857F 85 SE STA $5E and save as status byte 
([8384/8571/8577] 

Display command status byte 

8581 78 SEI Disable bus & controllr interrupt 
8582 20 CE 81 JSR $81CE Switch 1571 bus for output 

8585 AS 5E LDA S$5E Set status byte as character to 
8587 85 46. STA $46 be sent 

8589 20 F9 85 JSR $85F9 Send byte over 1571 bus 

858C A9 O00 LDA #$00 Clear error flag (blink counter) 
858E 8D 6C 02 STA $026C | . 
8591 20 B2 81 JSR $81B2 Switch 1571 bus to input 

8594 58 CLI Enable bus/controller interrupt | 
8595 RTS Return to caller 


Set command 


85961 
8599 
859B 


AD 
85 
24 


03 02 
SE 
3B 
05 
01 
OD 18 


LDA 
STA 
BIT 
BVC 


status byte 


$0203 
SSE 
$3B 
S85A4 


Get 4th char from command string, 
and save as command status 

Test flag from command number 
diskette exchange be observed? 
YES—Initialize disk exchange flag 
(write protect will interrupt) 
Return to caller 


[Origin over vector in 80AA/80AC by routine $8030] 
Display 'Syntax Error' 


LDX 


#S0E 


Set error number 
Prepare byte for output 
Display 


'31 Syntax Error’ message. 


85A5 A2 OE 
85A7 20 E9 85 
85AA AQ 31 
85AC 4C C8 Cl 
[83E9/8488] 
Turn new track 
85AF AD 74 02 
85B2 C9 07 
85B4 90 32 
85B6 AS 06 
85B8 A8 

85B9 E9 01 
85BB OA 

85BC 85 64 


Get length from command string, 
and compare to 7 characters 

Does cmd string have min. 7chars? 
YES-—Get last track number and 
save it 

Get current head position, above, 
then calculate in half-steps and 
set it 
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85BE CO 24 CPY #524 Last track on side 2? 

85CO 08 PHP Save result of the test 

85C1 AC 06 02 LDY $0206 Get 7th char from command string, 
85C4 84 22 STY $22 and set as current track 

85C6 88 DEY From that, calculate and set 
85C7 84 67 STY $67 target track -1 

85C9 CO 23 CPY #$23 Is new track on side 2 of disk? 
85CB 6A ROR A Move result in Bit 7 

85CC 28 PLP Get previous result again, & get 
85CD 29 80 AND #$80 the last result ready again 

85CF 90 OB BCC $85DC Last track on side 2 (Bit =1)? 
85D1 30 12 BMI $85E5 YES—New track on side 2 (Bit =1)? 
85D3 18 CLC NO-- Compute and 

85D4 AS 67 LDA $67 set new track 

85D6 69 23 ADC #$23 on side 

85D8 85 67 STA $67 2 

85DA 30 09 BMI $85E5 Jump 

s5pc! 10 07 BPL $85E5 to $85E5 

85DE 38 SEC Compute new track 

85DF A5 67 LDA $67 number on side 

85E1 E9 23 SBC #$23 1 and 

85E3 85 67 STA $67 save it 

85E5> 4C BA 87 JMP $87BA Turn track 

g5E8: 60 RTS Return from this subroutine 


- (8381/83BE/8464/84EB/8509/85A7/8D64/8DB1/8EA3 ] 


Perpare error byte for output 


85E9 86 46 STX $46 Save error number 

85EB AS SE LDA $5SE Get command status byte and 
85ED 29 FO AND #SF0 isolate flag 

85EF 05 46 ORA $46 Take up error # and set value 
85F1 85 5E STA SSE as new status; also, character 
85F3 85 46 STA $46 to be given 

85F5 60 RTS Return from this subroutine 
[8603] Send byte over 1571 bus 


85F6 20 59 EBA JSR SEA59 Test for ATN command mode 


[83C9/83D7/8467/84FD/853A/8548/854F/8556/855D/8563/8589/85FF/8609] 
[8DBF/8DD4/8EA6] 


Send byte over 1571 bus 


85F9 AD 00 18 LDA $1800 Get bus control register;wait til 
85FC CD 00 18 CMP $1800 line status remains constant 

85FF DO F8 BNE $85F9 Constant value applied? 

8601 29 FF AND #SFF YES—Processor flag reset 

8603 30 Fl BMI S$85F6 Is ATN set? 

8605 45 37 EOR $37 NO-—Get bus status and test 
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flag for Clock 

Is Clock set? 

YES—Get char. tobe sent & transfr 
to the serial output register 
Flag for Clock; get and 

invert 

Store flag again 

Test bitflag for 'Register 
output' and verify 

Is byte completely output? 
YES—Return from this subroutine 


of next IBM-34 sector 


LDA $0203 


- CMP #$24 


BCC $8627 
SBC #$23 


. TAX | 
LDA $942B,X 


TAX 
DEX 
STX $46 


~ CLC 


LDA $0204 
ADC $3C 
CMP $46 
BCC $8643 
SBC $46 
BEQ $8641 
SEC ? 
SBC #501 
ebyte $2C 
LDA $46 
STA $0204 
LDA #$88 
STA S5F 
RTS 


Get track # from command string & 
compare with max. track +1 

Is track on side 2? 

YES—Compute and set 

track from side 1 

Determine and save # of sectors 
per track; from this, 

get maximum sector number and 
save it 

Set new sector number: 

Sector number from command string 
Compute sector format 

Compare with maximum number 

Has legal range been exceeded? 
YES—Set number of legal range 
Last sector chosen? 

YES—Then calculate sector number 
(since sector 0 also exists) 

Jump to next 2 bytes(bit command) 
Get first value computed and 
save current sector number 

"Read sector from current track' 
given as current jobcode 

Return from this subroutine 


8607 29 04 
8609 FO EE 
860B AS 46 
860D 8D 0C 40 
8610 AS 37 
8612 49 04 
8614 85 37 
8616 AQ 08 
8618! 2c oD 40 
861B FO FB 
861D 60 
[83E2/847E] 
Calculate number 
861E AD 03 02 
8621 C9 24 
8623 90 02 
8625 EQ 23 
86272 AA | 
8628 BD 2B 94 
862B AA 

862C CA 

862D 86 46 
862F 18 |. 
8630 AD 04 02 
8633 65 3C 
8635 C5 46 
8637 90 OA 
8639 ES 46 
863B FO 04 
863D 38 

863E E9 01 
8640 2C 

86411 aS 46 
86431 gp 04 02 
8646 AQ 88 
8648 85 5F 
864A 60 
[910E] 

Execute job 
864B A6 F9 
864D 08 

864E 58 

864F 20 B6 OF 
8652 C9 02 
8654 90 05 


LDX $F9 
PHP 

CLI 

JSR $9FB6 
CMP #S$02 
BCC $865B 


Current buffer number 

Retain processor status 

Enable bus/controller interrupt 
Start job loop and execute job 
Compare return message with ‘Ok’ 
Job run error-free? 
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JSR 
LDA 
TAX 


$8683 
$00,X 


NO-Continue trying 

Get and save return 

message 

Re-establish processor status 
Return from this subroutine 


LDX 
PHP 
SEI 
LDA 
ORA 
STA 
CLI 
JSR 
CMP 
BCC 
JSR 
SEI 
LDA 
AND 
STA 
LDA 


#500 


$1C00 
#508 
$1C00 


$OFBE6 
#502 

$8675 
$8683 


$1000 
#SF7 

$1c00 
$00,X 


job for buffer 0 


Determine buffer number 

Save processor status 

Disable bus/controller interrupt 
Get drive control register and 
set bit for LED 

LED on 

Enable bus/controller interrupt 
Start job loop and execute job 
Test return message for 'OK' 

Job run error-free? 

NO-- Execute new attempt 

Disable bus/controller interrupt 
Get control register and 

clear LED bit 

LED off 

Get return message of last try, 
and save it 

Re-establish processor status 
Return from this subroutine 


at job execution 


LDA 
STA 
STX 
LDA 
STA 
STA 
STA 


#SFF 
$0298 
SF9 
$0202 
SOF 
$024D 


$O25B,X 


Set flag for 

"Error in job execution’ 

Save buffer number of job 

Get jobcode and save 

as current 

jobcode 

Arrange jobcode of buffer & give 
to job loop as jobcode for 
buffer 0 

Control job execution 


8656 20 83 86 
8659 B5 00 
865B! AA 

865C 28 

865D 60 
[83BA/845D/84AE] 
Start job loop and execute 
865E A2 00 
8660 08 

8661 78 

8662 AD 00 1C 
8665 09 08 
8667 8D 00 1c 
866A 58 

866B 20 B6 OF 
866E C9 02 
8670 90 03 
8672 20 83 86 
86751 78 

8676 AD 00 1C 
8679 29 F7 
867B 8D 00 1C 
867E BS 00 
8680 AA 

8681 28 

8682 60 
[8656/8672] 
Continue attempt 
8683 A9 FF 
8685 8D 98 02 
8688 86 F9 
868A AD 02 02 
868D 85 5F 
868F 8D 4D 02 
8692 9D 5B 02 
8695 85 00 
8697 20 B6 9F 
869A 4C 99 D5 
869D1 20 59 EA 
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Wait for jump of Clock input 

86A0 AD OO 18 LDA $1800 Get bus control register and 

86A3 .CD 00 18 CMP $1800 compare w/value from 2nd reading 
86A6 DO F8 BNE $86A0 Is status of register constant? 
86A8 29 FF AND #SFF Set processor flag 

86AA 30 Fi BMI $869D Is ATN set? 

86AC 45 37 EOR $37 NO—Compare Clock value w/value of 
86AE 29 04 AND #504 the last call of this routine 
86BO0 FO EE BEQ $86A0 Has it been altered? 

86B2 A5 37 LDA $37 YES-Then get flag and 

86B4 49 04 EOR #$04 also re-save 

86B6 85 37 STA $37 reversed flag 

86B8 60 RTS Return from this subroutine 


[Table will be used in 86E9] 
Control bytes for functions before call of IBM-34 routines 


Function of individual bits 


bito 
bitl 
bit2 
bit3 
bit4 
bit5 
bité 
bit7 


86B9 
86BA 
86BB 
86BC 
86BD 
86BE 
86BF 
86CO 
86C1 
86C2 
86C3 
86C4 


(Bit=1 called'Function activated'): 


Error by job execution not given 

Read next header and set head to last-read track 

Wait until motor runs & head is in position (track and side) 
Position head to new track ($67) 

Drive motor on 


Check write protect 


Take sector number from command string 
Set value for new track ($67) 


%00000000 


00 No status functions 

15 %00010101 Motor on/wait/no error message 

00 %00000000 No status functions 

00 %00000000 No status functions 

00 %00000000 No status functions 

15 %00010101 Motor on/wait/no error message 

00 00000000 No status functions 

BC $10111100 Track/test WP/head/wait 

34 $00110100 Test WP/motor on/wait 

DE %$11011110 Track/sector/motor on/head/header 
FE %$11111110 Track/sector/test WP/motor on/head/header 
DC %$11011100 MTrack/sector/Motor on/head/wait 
15 00010101 Motor on/wait/no error message 

15 %00010101 Motor on/wait/no error message 

00 %00000000 No status functions 
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[Table will be used in 873F] 


Diskette 
86C8 EC 
86CA EF 
86CC FD 
86CE 03 
86D0 08 
86D2 09 
86D4 BA 
86D6 86 
86D8 57 
86D9 67 
86DC F6 
86DE C6 
86EO 18 
86E2 5F 
86E4 B3 


routine addresses in IBM System-34 format 


89 
89 
89 
8A 
8A 
8A 
87 
8A 
8C 
8D 


0 


wo Own Om ®&® WD bP 


- 
(o) 
MRR RRR RRR SS 


11 


00 
01 
02 
03 
04 
05 
06 
07 
08 
09 
OA 
OB 


S89EC 
S89EF 
$89FD 
$8A03 
$8A08 
S8A09 
S87BA 
S8A86 
$8C57 
$8D67 
S8DF6 


Execute reset (SEAAO) 

Reset head to track 

Test 'Write Protect' 

Take up track parameters 

No function (rts) 

Read next IBM-34 header 

No function (rts) 

Format ‘IBM Syst34' track 
Format IBM-34 diskette 

Read IBM-34 sector 

Write IBM-34 sector 

IBM-34 sector verify 

Test IBM34 sectr: empty byte 
Send IBM-34 sector sequence 
Initialize IBM-34 track 


[839D/8408/8499/84C5/8520/BF4E}] 


Routine to call IBM system 34 functions (number in accumulator) 
Disable bus/controller interrupt 
Save # of routine to be called 
and get corresponding 

control byte of routine 

and store it 

Set flag for IBM-34 format 

in command status 


86E6 
86E7 
86E8 
86E9 
86EC 
86EE 
86F0 
86F2 
86F4 
86F6 
86F8 
86FB 
86FD1 
86FF 
8701 
8704 
87061 
8708 
870A 
870D 
870F 
8711 
8713 
8715 
8717 
8719 
871B2 


78 
48 
AA 
BD 
85 
AS 
09 
85 


86 
06 


B9 
1B 
SE 
80 
SE 
1B 
05 
03 
67 
1B 
05 
04 
43 
1B 
11 
00 
10 
OA 
3B 
08 
3B 
08 
46 
1B 


86 


02 


02 


1c 


SEI 
PHA 
TAX 
LDA 
STA 
LDA 
ORA 
STA 
ASL 
BCC 
LDA 
STA 
ASL 
BCC 
LDA 
STA 
ASL 
BCC 
LDA 
AND 
BNE 
LDA 
ORA 
STA 
LDX 
STX 
ASL 


$86B9,X 


$1B 
SSE 
#$80 
SSE 
$1B 
S$86FD 
$0203 
$67 
$1B 
$8706 
$0204 
$43 
$1B 
$871B 
$1c00 
#$10 
$871B 
$3B 
#$08 
$3B 
#508 
$46 
$1B 


byte 


Test Bit7 of control byte 


Set? 


YES-Get # of track to be ctrolled 
and set pointers 
Test Bit6é of control byte 


Set? 


YES—Get number of desired sector 
and save it 
Test Bit5 of control byte 


Set? 


Get bus control register and test 


Bit for 


'Write Protect! 


Is there a write-protect tab? 
YES—Set 
"Write protect in place' 


flag 
Save error #: 


‘Write Protect On' 


as character to be given 
Test Bit4 of control byte 
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871D 90 03 BCC $8722 Set? 

871F 20 94 87 JSR $8794 YES—Drive motor on 

87221 06 1B ASL $1B Test Bit 3 of control byte 

8724 90 03 BCC $8729 Set? 

8726 20 BA 87 JSR $87BA YES—Turn target track from ($67) 
87291 06 1B ASL $1B Test bit 2 of control byte 

872B 90 03 BCC $8730 Set? 

872D 20 BO 87 JSR $87B0 Wait until head & motor are ready 
87301 20 54 89 JSR $8954 Activate head on current side 
8733 06 IB ASL $1B Test Bitl of control byte 

8735 90 03 BCC $873A set? 

8737 20 2A 89 JSR $892A YES—Read IBM-34 header & set head 
873A! a9 00 LDA #S$00 Clear processor status register 
873C 68 PLA Get # of program to be called 
873D OA ASL A and double it (address table 
873E AA TAX takes 2-byte pointers) 

873F BD C8 86 LDA $86C8,X Get program addr(lo-byte) from 
8742 85 6F STA S6F table and set in pointer 

8744 BD C9 86 LDA $86C9,X Get high-byte and 

8747 85 70 STA $70 save it 

8749 20 61 87 JSR $8761 Execute program 

874C 20 8F F9 JSR SF98F Motor off (set flag) 

874F AE BO O1 LDX $01B0 Get return message of last job & 
8752 EO 02 CPX #$02 compare with 'Ok' 

8754 08 PHP Save result 

8755 06 1B ASL $1B Test bitO of control byte 

8757 BO 06 BCS $875F Set? 

8759 28 PLP NO-Get result of eror check 
875A 90 04 BCC $8760 Is job running error-free? 

875C 4C 8C 83 JMP $838C NO—Display error and end 

g75Fl 28 PLP Prepare result of error check 
87601 60 RTS Return from this subroutine 


87611 6c 6F 00 JMP (SO06F) Execute IBM 34 routine 


([87A3/99E7/A642/BF51] 
Drive motor on 


8764 08 PHP Retain processor status 

8765 78 SEI Disable bus/controller interrupt 
8766 AD 00 1C LDA $1C00 Get bus control register and 
8769 09 04 ORA #504 set bit for 'Motor on' 

876B 8D 00 1C STA $1C00 Store register again 

876E 28 PLP Re-establish processor status 
876F 60 RTS Return from this subroutine 
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[99FB/9A39/A654/BF54] 


Drive 
8770 
8771 
8772 
8775 


motor off 


08 PHP 
718 SEI 
AD 00 1C LDA $1C00 
29 FB AND #SFB 
8D 00 1¢ STA $1C00 
28 PLP 
60 RTS 


Retain processor status 

Disable bus/controller interrupt 
Get bus control register and 
clear bit for 'Motor on' 

Reset control register 
Re-establish processor status 
Return from this subroutine 


[884F] 


Drive 
877C 
877D 
877E 
8781 


cf. C100/C118 


Retain processor status 

Disable bus/controller interrupt 
Get bus control register 

and set bit for 'LED on' 

Store register again 
Re-establish processor status 
Return from this subroutine 


[8861] 


Drive 
8788 
8789 
878A 


Retain processor status 

Disable bus/controller interrupt 
Get bus control register 

and clear bit for 'LED on! 

Set control register again 
Re-establish processor status 
Return from this subroutine 


(871F] 


Motor 
8794 
8795 
8796 
8798 
879A 
879C 
879F 
87Al1 
87A3 
87A6 
87A8 
s7AAl 
87AC 
87AE 
87AF 


LED on 

08 PHP 

718 SEI 

AD 00 1c LDA $1C00 
09 08 ORA #$08 
8D 00 1C STA $1C00 
28 PLP 

60 RTS 

LED off 

08 PHP 

78 SEI 

AD 00 1c LDA $1C00 
29 F7 AND #S$F7 
8D 00 1c STA $1C00 
28 PLP 

60 RTS 

on and initialize flag 
08 PHP 

18 SEI 

A5 20 LDA $20 
C9 20 CMP #$20 
FO OE BEQ $87AA 
AD 02 02 LDA $0202 
29 O1 AND #501 
85 3E STA S3E 
20 64 87 JSR $8764 
AQ AO LDA #SA0 
85 20 STA $20 
AY 32 LDA #$32 
85 48 STA $48 
28 PLP 

60 RTS 


Retain processor status 
Disable bus/controller interrupt 
Get drive status and 

test for 'Motor running’ 

Is the motor already active? 
NO-—Get jobcode of routine and 
determine drive desired 

Set number as current drive 
Motor on 

Drive status at 

"Motor at/ not at turn number' 
set counter for motor 

runtime 

Get status register again 
Return from this subroutine 
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(872D] 
Wait until motor is set to turn number, and head is set in position 


87BO 08 PHP 


Retain status 


87B1 58 CLI Enable bus/controller interrupt 
87B21 a5 20 LDA $20 Get drive status and test for 
87B4 C9 20 CMP #S$20 ‘no stepper / drive ready' 

87B6 DO FA BNE $87B2 Drive ready? 

87B8 28 PLP YES—Re-establish status 

87B9 60 RTS Return from this subroutine 


[85E5/8726/8927/894C/89FA/8D0A/8D3A/8D51/8F6D] 


Turn to new track 


87BA 08 PHP Retain status 

87BB 58 CLI Enable bus/controller interrupt 
87BC AS 67 LDA $67 Get # of new track & compute the 
87BE OA ASL A number of absolute half-steps 
87BF C5 64 CMP $64 Compare w/current head position 
87C1 FO 1A BEQ $87DD Identical? 

87032 AS 67 LDA $67 NO-—Get number of new track and 
87C5 OA ASL A compute half-steps 

87C6 C5 64 CMP $64 Compare w/current counter status 
87C8 FO OE BEQ $87D8 Identical? 

87CA BO 06 BCS $87D2 NO-—currenut cntr>target position? 


87CC 20 E7 87 JSR $87E7 
87CF 4C C3 87  JMP $87C3 
87D21 20 DF 87 JSR $87DF 
87D5 4C C3 87  JMP $87C3 


YES—Move a half-step out until 
track is reached 

Move one half-step out until 
track is reached 


87p81 ao 10 LDY #$10 Initialize counter 

87DA 20 29 88 JSR $8829 40/20 ms delay (1/2 mHz) 
87DD+ 28 PLP Re-establish status 

87DE 60 RTS Return from this subroutine 
{87D2] 

One half-step in 

87DF AS 64 LDA $64 Determine current position 
87E1 18 CLC Prepare addition 

87E2 69 O01 ADC #501 Add a half-step 


87E4 4C 14 88 JMP $8814 


(87E7] cf. 9A66/FF45 
One half-step out 


Control stepper motor 


87E7 AO 63 LDY #563 # of scan attempts/track 0 (99) 
87E91 AD OF 18 LDA $180F Get control register A 

87EC 6A ROR A Track 0 identifier(bit 0)in carry 
87ED 08 PHP and save carry 

87EE AD OF 18 LDA $180F Read control register again 

87F1 6A ROR A Shift track 0 identifier (bit 0) 
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6A 
28 
29 


to bit 7 

Get previous scan result 

Isolate last scan result 

TrackO active in lst test (bit=0) ? 
NO—-Is track O now reached? 
YES—Jump to $877C 

Track O still active? 


Status of track 0 write-protection has not changed 


87FEL 
87FF 
8801 
8803 
8806 


88 
DO 
BO 
AD 
29 
DO 


E8 
OC 
00 
03 
05 
00 
64 


1c 


/ 


BNE’ $87E9 


BCS 
LDA 
AND 
BNE 


$S880F 
$1c00 
#503 


YES-—Take another look 

All attempts already performed? 
YES-Is head at track 0 position? 
YES—Control register f/step-motor 
Isolate step bits 

Is stepper reel being controlled? 
Clear current 

head position 

Return from this subroutine 


0 write-protection status HAS changed 


29 


64 


O1 
64 
03 
6F 


1c 


1C 


88 


LDA 
SEC 
SBC 
STA 
AND 
STA 
PHP 
SEI 
LDA 
AND 
ORA 
STA 
PLP 
LDY 


$64 


#501 
$64 
#503 
S6F 


Get current head position and 
limit to one 

half-step 

Save new position 

Set up and save control bits for 
stepper reel 

Retain processor status 

Disable bus/controller interrupt 
Get control register 

Mask out stepper control and set 
new bit values 

New value in control register 
Re-establish processor status 
Set counter for 13/7.5 ms delay 
Approx. 2.6/1.3 ms 

Adjust counter 

Delay already run up? 

YES—Return from this subroutine 
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[8829] 

Approx. 2.6/1.3 ms delay (2583 cycles until resumption point) 

8830 A2 02 LDX #$02 Number of counter loops 

8832 A9 00 LDA #$00 Initialize pointer 

88342 69 01 ADC #$01 and increase by one 

8836 DO FC BNE $8834 Already counted to 256? 

8838 CA DEX YES—Next count loop 

8839 DO F9 BNE $8834 All loops done? 

883B 60 RTS YES—Return from this subroutine 
[8A4D/8DAE/8E9D} 

Get error from CP/M controller 

883C EA NOP Delay until controller is ready 
883D AD 00 20 LDA $2000 Read status register 

8840 4A LSR A Shft error bits:'Record not found 
8841 4A LSR A and 'CRC Error' (Bit 3 and 4) in 
8842 4A LSR A positions 0 and 1 

8843 29 03 AND #$03 Isolate error bits and 

8845 AA TAX set up error pointer 

8846 BD 82 8A LDA $8A82,X Determine and set number of error 
8849 8D BO 01 STA $01B0 message 

884C AA TAX Save error number 

884D 60 RTS Return from this subroutine 


[89C0/8A30/8A88/8D85/8E63/8EDE/8F27] 
Send command over CP/M controller (WD 1770) 


884E 48 PHA Save command 

884F 20 7C 87 JSR $877C Switch on LED on drive 

8852 68 PLA Repeat command 

8853 8D 00 20 STA $2000 and send on CP/M controller 
8856 A9 O01 LDA #$01 Bit for 'Busy - Flag’ 

8858 EA NOP Delay until controller is ready 
88591 2c 00 20 BIT $2000 Test controller status register 
885C FO FB BEQ $8859 Is command taken (busy set)? 
885E 4C 7E A4 JMP SA47E YES—Wait 45 cycles 


(89C3/8A4A/8C48/8DAB/8F15/8F5C] 
Wait until current command of CP/M controller is done 


8861 20 88 87 JSR $8788 | LED off 

8864 A9 01 LDA #$01 Test bit for 'Busy - Flag' 
g866+ 2c 00 20 BIT $2000 in status register 

8869 DO FB BNE $8866 Is command still active? 

886B_ 60 RTS NO—Return from this subroutine 
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Compute number of next sector 


02 


LDA 
SEC 
SBC 
STA 
LDA 
CLC 
ADC 
CMP 
BEQ 
BCC 
SBC 
CLC 


$60 


#501 
$46 
$0204 


$3C 
$61 
$8884 
$8884 
$61 


$46 
$0204 


1571 Internals 


Get smallest sector number and 
format until 

sector number reaches zero; 
save it 

Get # of current sector; 
that, add 

sector format 

Compare with maximum sector # 
Is new number identical? 

NO-Is new number smaller? 
NO-Calculate sector number from 
allowable range; note 

common sector shifts 

Set new sector number 

Return from this subroutine 


from 


Make table of sector 


[8DED/886C] 
886C AS 60 
886E 38 
886F E9 01 
8871 85 46 
8873 AD 04 
8876 18 
8877 65 3C 
8879 C5 61 
887B FO 07 
887D 90 05 
887F ES 61 
8881 18 
8882 65 46 
88842 8D 04 
8887 60 
[8CF9] 

8888 AO 00 
888A A2 00 
888C AD 03 
888F 29 3F 
8891 8D 03 
8894 85 60 
8896 48 
8897 AD 07 
889A 48 
889B EE 04 
889g aD 03 
88Al1 99 OB 
88A4 EE 03 
88A7 E8 
88A8 98 
88A9 18 
88AA 6D 04 
88AD A8 
88AE CO 20 
88B0 BO OC 
88B2 CC 07 
88B5 90 1A 
88B7 DO 12 
88B9 EC 07 
88BC FO OD 
88BE2 CE 04 
88Cl1 68 


02 


02 


02 
02 
02 


02 
02 


02 


02 


02 


02 


LDY 
LDX 
LDA 
AND 
STA 
STA 
PHA 
LDA 
PHA 
INC 
LDA 
STA 
INC 
INX 
TYA 
CLC 
ADC 
TAY 
CPY 
BCS 
CPY 
BCC 
BNE 
CPX 
BEQ 
DEC 
PLA 


numbers available for formatting 


#500 
#500 
$0203 
#53F 
$0203 
$60 


$0207 


$0204 
$0203 


$O20B,Y 


$0203 


$0204 


#$20 

S88BE 
$0207 
$88D1 
$88CB 
$0207 
$88CB 
$0204 


Clear pointer to current sector # 
Clear sector counter 

Limit number of first 

sector to range of 

0-63 and save 

as smallest sector 

Save sector number 

Retain number of last 

sector 

Set up sector format 

Get number of current sector and 
insert in table 

Set number of next sector 

Number of sectors set up 

Get pointer to sector position 
and compute sector 

format 

Save new pointer and compare with 
max. sector number 

Gone over 32? 

NO—Test number of last sector 
Reached this number? 

NO—Last number reached? 

YES—Test # of sectors set out 
All sectors made available? 
NO—Adjust sector format 
Re-establish maximum 
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sector number 

Get number of first sector and 
set it 

Flag for ‘error encountered’ 
Return from this subroutine 
Compute pointer/current sector 
position in allowable 

sector range 

and save it 

Test number of sectors set out 
All sector #'s already in table? 
YES-~save number of sectors 

Set up number of 

last sector 

Compute # of smallest sector from 
that, and save as number of 
largest sector 

Compare with smaller number 
Has sector been set out? 
NO—Re-establish 

maximum sector number 

Get number of first sector 

and set it 

Adjust sector format 

Flag for 'no error found’ 
Return from this subroutine 


Test CP/M-sectors after formatting for empty bytes 


88C2 8D 
88C5 68 
88C6 8D 
88C9 38 
88CA 60 
88CB2 98 
88CC 38 
88CD ED 
88D0 A8 
gsp1+ Ec 
88D4 DO 
88D6 86 
88D8 CA 
88D9 8A 
88DA 18 
88DB 65 
88DD 85 
88DF C5 
88E1 90 
88E3 68 
88E4 8D 
88E7 68 
88E8 8D 
88EB CE 
88EE 18 
88EF 60 
[8D1F] 

88FO AD 
88F3 48 
88F4 AO 
88F6 84 
gersel a4 
88FA BQ 
88FD 8D 
8900 20 
8903 AE 
8906 EO 
8908 BO 
890A E6 
890C Ad 
890E CC 
8911 DO 
8913 18 
8914 24 
89151 38 


BO O01 


00 
24 
24 
OB 02 
O02 20 
18 8F 
BO 01 
02 
OB 
24 
24 
07 02 
ES 


LDA $01B0 
PHA 

LDY #$00 
STY $24 
LDY $24 
LDA $020B,Y 
STA $2002 
JSR $8F18 
LDX $01BO0 
CPX #S$02 
BCS $8915 
INC $24 
LDY $24 
CPY $0207 
BNE S$88F8 
CLC 

-byte $24 
SEC 


Save current track for 
formatting 

Clear counter for current sector 
number 

Get number of current sector and 
determine sector number of header 
Send sector over CP/M controller 
Test sector 

Get return message 

and compare w/ value for 'Ok! 

Is there an error here? 
NO-Choose next sector 

Get current sector # and compare 
with maximum amount 

All sectors already checked? 
YES-Set flag for 'Ok' 

Jump to next byte (bit-command) 
Set flag for error 
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Reset current track number of 
format procedure 
Return from this subroutine 


8916 68 PLA 
8917 8D BO 01° STA 
go1a! 60 RTS 
[8DF3/8EC2] 


Set next track 
891B AD 74 02 LDA 


891E C9 O07 CMP 
8920 90 F8 BCC 
8922 AD 06 02 LDA 
8925 85 67 STA 


Test length/command string in 
input buffer against 7 

Is command less than 7 chars.? 
NO-Get 7th character and take up 
as current target track 

Control track 


[8737] 

Read next IBM system 
892A AD BO 01 LDA 
892D 48 PHA 
892E 20 27 8A JSR 
8931 AE BO Ol LDX 
8934 EO 02 CPX 
8936 90 OD BCC 
8938 20 EF 89 JSR 
893B 20 27 8A JSR 
893E AE BO 01 LDX 


34 sector and set head accordingly 


$01B0 


$8A27 
$01B0 
#502 
$8945 
$89EF 
$8A27 
$01B0 
#502 
$894F 
$67 

A 

$64 
$894F 
$87BA 


Keep current error return 
message 

Read next IBM-34 header 

Get return message and check for 


error message 


Header been read error-free? 
YES-Set head to track 0 

Read next header 

Get return message 

and test for error message 
Header been read error-free? 
YES-Get # of current target track : 
and determine number of steps 
Compare with current position 
Is track already reached? 
NO-Set head to target track 
Repeat previous error number 
and set 

Return from this subroutine 


8941 EO 02 CPX 
8943 BO OA BCS 
g9451 AS 67 LDA 
8947 OA ASL 
8948 C5 64 CMP 
894A FO 03 BEQ 
894C 20 BA 87 JSR 
g94F? 68 PLA 
8950 8D BO 01 STA 
8953 60 RTS 
[8730/8CD5] 

Activate head at current diskette 
8954 08 PHP 
8955 78 SEI 
8956 AS 3B LDA 
8958 29 10 AND 
895A C9 10 CMP 
895C 20 F3 93 JSR 
895F 28 PLP 
8960 60 RTS 


$3B 
#$10 
#$10 
$93F3 


side 

Retain processor status 

Disable bus/controller interrupt 
Get flag from 

command number 

Take flag (bit 4) in carry 

Set head to chosen side 
Re-establish processor status 
Return from this subroutine 
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[852A] 


Determine smallest and greatest sector numbers 


8961 A4 97 LDY $97 
8963 88 DEY 

8964 A9 FF LDA #$FF 
89661 D9 OB 02 CMP $020B,Y 
8969 90 03 BCC $896F 
896B B9 0B 02. LDA $020B,Y 
g96E1 gg DEY 

896F 10 FS BPL $8966 
8971 85 60 STA $60 
8973 Ad 97 LDY $97 
8975 88 DEY 

8976 A9 00 LDA #$00 
8978+ D9 OB 02. CMP $020B,Y 
897B BO 03 BCS $8980 
897D B9 OB 02. LDA $020B,Y 
89801 gg DEY 

8981 10 F5 BPL $8978 
8983 85 61 STA $61 
8985 60 RTS 

[852D] 


Compute sector format from sector 


8986 A6 97 LDX $97 
8988 AO 00 LDY #$00 
898A! B9 OB 02. LDA $020B,Y 
898D C5 60 CMP $60 
898F FO 05 BEQ $8996 
8991 C8 INY 

8992 C4 97 CPY $97 
8994 DO F4 BNE $898A 
g9961 g4 5F STY $5F 
8998 AS 60 LDA $60 
899A 18 CLC 

899B 69 01 ADC #$01 
899D 85 46 STA $46 
899F A2 FF LDX #SFF 
89A12 B9 0B 02. LDA $020B,Y 
89A4 C5 46 CMP $46 
89A6 FO OA BEQ $89B2 
89A8 E8 INX 

89A9 C8 INY 


Number of sectors laid out 
Counter to last sector position 
Maximum possible number; 

Compare with sector number 

Is sector number less? 

YES~Get new sector number and 
set pointer to next sector naming 
All sectors already checked out? 
YES-Set smallest sector number 
Number of sectors laid out 
Counter to last sector position 
Smallest value 

Compare with sector number? 

Is number greater? 

YES-Take new sector number 
Pointer to next sector naming 
All sectors already checked? 
YES-Save greatest sector number 
Return from this subroutine 


sequence 
Number of sectors in table 

Reset position pointer 

Get sector # from table & compare 
with smallest number 

Identical? 

NO-Pointer to next sector 

Compare with # of sector numbers 
Already tested? 

YES-Save place of smallest sector 
Get smallest sector number 

and draw up number of next 

sector 

Save number 

Initialize cntr for sector format 
Get sector # from table and 
compare with second sector 
Identical? 

NO-Increment sector format 
Pointer to next sector number 
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Test against number of sectors 
All sectors handled? 

YES—Reset pointers 

Jump to $89Al1 

Return from this subroutine 


to track 


Hold zeropage area to be used 

for temporary storage 

Save processor status 

Disable bus/controller interrupt 
Set current track # as track 

to be newly initialized 

%00011000 'Seek' (set track) 
command on CP/M controller 

Wait until command is executed 
Clear counter for number of 

tries 

Read CP/M status register 

Get flag for status of index hole 
and save it 

Re-read status reg. 
index hole light box 
Compare with the former 

Index hole found? 
YES—Re-establish processor status 
Set index flag and end 

Counter for tries (low-byte) 

Is counter finished? 
YES—Decrement high-byte 

Is counter finished? 
YES—Re-establish processor status 
Flag for 'Index hole not found' 
Jump to next byte (bit command) 
Flag for 'Index hole found’ 
Re-arrange 

zero-page area 

Return from this subroutine 


& status of 


89AA C4 97 CPY $97 
89AC DO F3 BNE $89A1 
89AE AO 00 LDY #$00 
89B0 FO EF BEQ $89Al1 
g9B2! 60 RTS 
[8A0C/8CDE] 

Initialize CP/M controller 
89B3 AS 6F LDA S6F 
89B5 48 PHA 

89B6 08 PHP 

89B7 78 SEI 

89B8 AD 01 20 LDA $2001 
89BB 8D 03 20 STA $2003 
89BE A9 18 LDA #$18 
89CO 20 4E 88 JSR $884E 
89C3 20 61 88 JSR $8861 
89C6 A2 00 LDX #$00 
89C8 AO 80 LDY #$80 
89CA AD 00 20 LDA $2000 
89CD 29 02 AND #$02 
89CF 85 6F STA S6F 
89D12 AD 00 20 LDA $2000 
89D4 29 02 AND #$02 
89D6 C5 6F CMP S6F 
89D8 FO 04 BEQ $89DE 
89DA 28 PLP 

89DB 4C E7 89 JMP $8957 
89DE! CA DEX 

89DF DO FO BNE $89D1 
89F1 88 DEY 

89E2 DO ED BNE $89D1 
89F4 28 PLP 

89F5 38 SEC 

89E6 24 18 .byte $24 
8971 18 CLC 

89F8 68 PLA 

89F9 85 6F STA S6F 
89EB 60 RTS 
[Vector: 86C8] 

89EC 4C AO EA’ JMP SEAAO 


ROM - 31 


Abacus Software 1571 Internals 
re snvapapesnsstesnnrereeeeeeee eee 


[8938/8A09/8CDB/8CE8/8F61/Vector: 86CA] 
Replace head at track 0 


89EF AQ B4 LDA #$B4 Set # of current halftrack 
89F1 85 64 STA $64 steps for track 37 

89F3 A9X 00 LDA #S00 Place CP/M controller at 
89F5 8D 01 20 STA $2001 track 0 

89F8 85 67 STA $67 Set new target track 

89FA 4C BA 87 JMP $87BA Position head 


[Vector: 86CC] 


Test status of write-protect notch 


89FD AD 00 1c LDA $1C00 Get drive control reg hole, get 
8A00 29 10 AND #510 bit f/'Write Protect' (low active) 
8A02 60 RTS Return from this subroutine 
[Vector: 86CF] 

Set track parameters 

8A03 84 67 STY $67 Set track to be controlled 

8A05 86 64 STX $64 Curr.position in half-track steps 
8A07 60 RTS Return from this subroutine 
[Vector: 864E] 

8A08 60 RTS Return from this subroutine 
[Vector: 86D2] 


Read header of next CP/M sector and in buffer $0024 


8A09 20 EF 89 JSR S89EF Set head to track 0 

8A0C 20 B3 89 JSR $89B3 Initialize controller 

8AOF BO OF BCS $8A20 Index hole on hand? 

8A11 20 27 8A JSR $8A27 YES~Read header and set pointer 
8A14 BD 7E 8A LDA S8A7E, X Get # of sectors to a track and 
8A17 85 97 STA $97 save them 

8A19 85 61 STA $61 Set as largest sector number 
8A1B A9 O01 LDA #$01 Determine smallest 

8A1D 85 60 STA $60 sector number 

8A1F 60 RTS Return from this subroutine 
8a20! a9 op LDA #SOD Set error message -- 

8A22 8D BO Ol STA $01B0 ‘Index not found! 

8A25 DO 3E BNE $8A65 Jump to S$8A65 


[892E/893B/8A11/8F74/8F82] 
Read next IBM System 34 header and set sector pointer 


8A27 
8A29 
8A2C 
8A2E 
8A30 


A9 00 
8D 71 
85 44 
A9 C8 
20 4E 


02 


88 


LDA 
STA 
STA 
LDA 
JSR 


#500 
$0271 
$44 
#$C8 
S884E 


Clear pointer for 

# bytes per sector portion and 
number of portions 
%11001000'Read address' (Readhead) 
Command on CP/M controller 
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20 


20 


88 
88 


Clear buffer pointer 

Number of header bytes 

Read status register and 
isolate flag 

Flag: 'Command in process’ 
Is command still active? 
YES—Any more header data? 
YES-Get data byte and write 
in header buffer 

Set buffer pointer to next byte 
Decrement number of header bytes 
All bytes read? 

YES-Wait until command is ended 
Get return message frm controller 
Get track # from header read and 
compute number of half-steps 

Save as current head position 

Get identifier for sector size 


(Busy) 


for sector type 


AND 
TAX 
LDA 
STA 
LDA 
STA 
LDA 
AND 
ORA 


#503 


$8A72,X 


$0271 


$8A76,X% 


$44 
SSE 
#580 
$01B0 


S8A7A,X 


S5E 


Isolate significant bits 

and save value 

Get # of bytes per sector portion 
and save it 

Determine # of portions /sector 
and take up 

Get command status byte & isolate. 
flag for IBM-34 diskette 

Combine current track # and set 
identifier for sector length 
Re-set command status byte 

Return from this subroutine 


Number of bytes per sector portion 


8A33 A2 00 
8A35 AO 06 
8A372 AD 00 
8A3A 29 03 
8A3C 4A 
8A3D 90 OB 
8A3F FO F6 
8A41 AD 03 
8A44 95 24 
8A46 ES 
8A47 88 
8A48 DO ED 
ga4al 20 61 
8A4D 20 3C 
8A50 AS 24 
8A52 OA 
8A53 85 64 
8A55 AS 27 
[8C7B/8C9F] 
Set pointer 
8A57 29 03 
8A59 AA 
8A5A BD 72 
8A5D 8D 71 
8A60 BD 76 
8A63 85 44 
8A65/ AS 5E 
8A67 29 80 
8A69 OD BO 
8A6C 1D 7A 
SA6F 85 5E 
8A71 60 
[8A5A] 

8A72 7F 
8A73 FF 
8A74 FF 
8A75 FF 


Value for 128 bytes / sector 
256 bytes / sector 
512 bytes / sector 
/ 


for 1024 bytes sector 
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[8A60] 

Number of portions per CP/M sector 

8A76 01 Value for 128 bytes / sector 
8A77 Ol Value for 256 bytes / sector 
8A78 02 Value for 512 bytes / sector 
8A79 04 Value for 1024 bytes / sector 
[8A6C] 

Identifier for sector length (in most significant byte-half) 

8A7A 00 Value for 128 bytes / sector 
8A7B 10 Value for 256 bytes / sector 
8A7C 20 Value for 512 bytes / sector 
8A7D 30 Value for 1024 bytes / sector 
{8A14] 

Number of sectors per track; number of highest sector 

8A7E 1A Value for 128 bytes / sector 
8A7F 10 Value for 256 bytes / sector 
8A80 09 Value for 512 bytes / sector 
8A81 05 Value for 1024 bytes / sector 
{[8846] 

CP/M error messages 

8A82 01 Number for 'OK' 

8A83 09 Number for 'False checksum’ 
8A84 02 # for 'Sector header not found! 
8A85 03 Number for 'Sync not found! 
{[8D14] 

Format CP/M track in "IBM System 34 format! 

8A86 AX FS LDA #SF8 %$111110000Write'Write track'track 
8A88 20 DO 87 JSR $87D0 Give command over CP/M controller 
8A8B 24 3B BIT $3B Test flag in command number 
8A8D 50 62 BVC S8AF1 Should track index be written? 
Write track-Index save (after index hole) 

8A8F A2 50 LDX #$50 YES—# of bytes f/index Pulse(80) 
8A912 AD 00 20 LDA $2000 Get status register & 

8A94 29 03 AND #$03 isolate command bits 

8A96 4A LSR A Test bit for 'Busy' 

8A97 90 60 BCC S8AF9 Should command be executed? 
8A99 FO F6 BEQ $8A91 YES—Data controller ready? 
8A9B AQ 4E LDA #S4E Write byte value for Pre-Index 1 
8A9D 8D 03 20 STA $2003 on diskette 

8AAO CA DEX Write next byte 

8AAl DO EE BNE $8A91 All bytes already? 

8AA3 A2 OC LDX #$0C YES-Set counter for spaces (12) 
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8AAS2 
8AA8 


AD 
29 
4A 
90 
FO 
AQ 
8D 


00 20 
03 


4c 
F6 
00 
03 20 


EE 
03 
00 20 
03 


38 
F6 
F6 
03 20 


BE 
00 20 
03 


26 
F6 
FC 
03 20 
32 


0O 20 
03 


14 
F6 
4E 
03 20 


Get status register 

and isolate command bits 

Test bit for 'Busy' 

Should command still be executed? 
YES—Data controller ready? 

Write byte value for Pre-Index 2 
to diskette 

Write next byte 

All bytes ready? 

YES-—Set counter 

Get status register & 

isolate command bits 

Test bit for 'Busy' 

Will command still be executed? 
YES—Data controller ready? 

Write value for time byte 5C2 

to diskette 

Write next byte 

All bytes? 

Get status register & 

isolate command bits 

Test bit for 'Busy' 

Will command still be executed? 
YES—Data controller ready? 

Wrte byte val:"Addres Index Save' 
to diskette 

Set counter (50) 
Two cycles delay 
Get status register 
command bits 

Test bit for 'Busy' 
Will command still be executed? 
YES—Data controller ready? 
Write byte value for Post-Index 
to diskette 

Write next byte 

All bytes ready? 

YES—Jump to $8BO5 


& isolate 


[8A8D] 


8AF1 
8AF32 
8AF6 
SAF8 
8AF9> 
8AFB 
8AFD 


Format 


3C 
00 20 
03 


28 
F6 
4E 


sectors 


LDX 
LDA 
AND 
LSR 
BCC 
BEQ 
LDA 


#$3C 
$2000 
#$03 
A 
$8B23 
S8AF3 
#S4E 


Set counter (60) 

Get status register AND isolate 
command bits 

Test bit for 'Busy' 

Will command still be executed? 
YES-Data controller ready? 

Write byte value for space l 
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8AFF 8D 
8B02 CA 
8B03 DO 
8B051 ao 
8B071 a2 
8B092 AD 
8BOC 29 
8BOE 4A 
8BOF 90 
8B11 FO 
8B13 A9 
8B15 8D 
8B18 CA 
8B19 DO 
8B1B A2 
8B1D2 AD 
8B20 29 
8B22 4A 
8B232 90 
8B25 FO 
8B27 AQ 
8B29 8D 
8B2C CA 
8B2D DO 
8B2F2 AD 
8B32 29 
8B34 4A 
8B35 90 
8B37 FO 
8B39 AQ 
8B3B 8D 
8B3E! ap 
8B41 29 
8B43 4A 
8B44 90 
8B46 FO 
8B48 AD 
8B4B 8D 
8B4E+ ap 
8B51 29 
8B53 4A 
8B54 90 
8B56 FO 
8B58 AS 
8B5A 29 
8B5C DO 
8B5E Ag 


03 20 


EE 
01 
OC 
00 20 
03 


12 
F6 
00 
03 20 


EE 
03 
00 20 
03 


57 
F6 
FS 
03 20 


EE 
00 20 
03 


45 
F6 
FE 
03 20 
00 20 
03 


36 
F6 
BO O01 
03 20 
00 20 
03 


26 
F6 
3B 
10 
03 
00 
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to diskette 

Write next byte 

All bytes ready? 

YES-—Sector counter 

set counter 

Get status register & isolate 
command bits 

Test bit for 'Busy' 

Will command still be executed? 
YES—Data controller ready? 
Write byte value for 2nd part of 
space 1 to diskette 

Write next byte 

All bytes done? 

Set counter 

Get status register & isolate 
command bits 

Test bit for 'Busy' 

Will command still be executed? 
YES—Data controller ready? 
Write value time byte SAl1 

to diskette 

Write next byte 

All bytes done up? 

Get status register & isolate 
command bits 

Test bit for 'Busy' 

Will command still be executed? 
YES—Data controller ready? 
Write byte value:'ID Adress Save' 
to diskette 

Get status register & isolate 
command bits 

Test bit for 'Busy' 

Will command still be executed? 
YES—Data controller ready? 
Write current track number 

to diskette 

Get status register & isolate 
command bits 

Test bit for 'Busy' 

Will command still be executed? 
YES—Data controller ready? 

Get flag for current disk side & 
test it 

Is side 1 active? 

YES—Then set side identifier 
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8B60 2C 
gB61! ag 
8B63 8D 
8B66- AD 
8B69 29 
8B6B 4A 
8B6C 90 
8B6E FO 
8B70 BQ 
8B73 8D 
88761 AD 
8B79 29 
8B7B 4A 
8B7C> 90 
8B7E FO 
8B80 AD 
8B83 8D 
gB86- AD 
8B89 29 
8B8B 4A 
8B8C 90 
8B8E FO 
8B90 A9 
8B92 8D 
8B95 A2 
8B972 AD 
8B9A 29 
8B9C 4A 
8B9D 90 
8B9F FO 
8BAl AQ 
8BA3 8D 
8BA6 CA 
8BA7 DO 
8BA9 A2 
8BAB2 AD 
8BAE 29 
8BBO 4A 
8BB1° 90 
8BB3 FO 
8BB5 AQ 
8BB7 8D 
8BBA CA 
8BBB DO 
8BBD A2 
8BBF2 AD 
8BC2 29 


01 
03 
00 
03 


OE 
F6 
OA 
03 
00 
03 


33 
F6 
05 
03 
00 
03 


23 
F6 
F7 
03 
16 
00 
03 


12 
F6 
4E 
03 


EE 
0c 
00 
03 


38 
F6 
00 
03 


EE 
03 
00 
03 


20 
20 


02 
20 
20 


02 
20 
20 


20 


20 


20 


20 


20 


20 


ebyte $2C 


LDA 
STA 
LDA 
AND 


#501 
$2003 
$2000 
#503 


LSR A 


BCC 
BEQ 
LDA 
STA 
LDA 
AND 
LSR 
BCC 
BEQ 
LDA 
STA 
LDA 
AND 
LSR 
BCC 
BEQ 
LDA 
STA 
LDX 
LDA 
AND 
LSR 
BCC 
BEQ 
LDA 
STA 
DEX 
BNE 
LDX 
LDA 
AND 
LSR 
BCC 
BEQ 
LDA 
STA 
DEX 
BNE 
LDX 
LDA 
AND 


S8B7C 
S8B66 


$020A,Y 


$2003 
$2000 
#$03 
A 
$8BB1 
$8B76 
$0205 
$2003 
$2000 
#503 
A 
$8BB1 
$8B86 
#SF7 
$2003 
#516 
$2000 
#$03 
A 
S8BB1 
$8B97 
#S4E 
$2003 


$8B97 
#50C 
$2000 
#503 
A 
S8BEB 
$8BAB 
#500 
$2003 


$8BAB 
#$03 
$2000 
#$03 


Jump to next 2 bytes(bit command) 
Write side 2 identifier 

to diskette 

Get status register & isolate 
command bits 

Test bit for 'Busy' 

Will command still be executed? 
YES—Data controller ready? 
Write sector number 

to diskette 

Get status register & isolate 
command bits 

Test bit for 'Busy' 

Will command still be executed? 
YES—Data controller ready? 
Write identifier for 

sector length to diskette 

Get status register & isolate 
command bits 

Test bit for 'Busy' 

Will command still be executed? 
YES—Data controller ready? 
Write byte value for 2 CRC bytes 
to diskette 

Set counter (22) 

Get status register & isolate 
command bits 

Test bit for 'Busy' 

Will command still be executed? 
YES—Data controller ready? 
Write byte value for space 2 

to diskette 

Write next byte 

All bytes already? 

Set counter (12) 

Get status register & isolate 
command bits 

Test bit for ‘'Busy' 

Will command still be executed? 
YES—Data controller ready? 
Write byte val,2nd part of space2 
to diskette 

Write next byte 

All bytes done? 

Set counter 

Get status register & isolate 
command bits 
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8BC4 4A 
8BC5 90 
8BC7 FO 
8BC9 Ag 
8BCB 8D 
8BCE CA 
8BCF DO 
8BD11 ap 
8BD4 29 
8BD6 4A 
8BD7 90 
8BD9 FO 
8BDB AQ 
8BDD 8D 
8BEO 84 
8BE2 Ad 
8BE4 EA 
8BE5> AD 
8BE8 29 
8BEA 4A 
8BEB- 90 
8BED FO 
8BEF AD 
8BF2 8D 
8BF5 EC 
8BF8 FO 
8BFA Es 
8BFB 4c 
8BFE! Eg 
8BFF 88 
8cOO DO 
gco2t ap 
8C05 29 
8CO7 4A 
8CO8 90 
8COA FO 
8coc Ag 
8COE 8D 
8C11 AC 
8C14 B9 
8C17 Ad 
8C19 AA 
8C1A2 AD 
8C1D 29 
8C1F 4A 
8C20 90 
8C22 FO 


20 


20 


20 


20 


02 
20 
02 


8B 


20 


20 
02 
8C 


20 


S8BE5 
$2000 
#$03 
A 
$8C4D 
$8C02 
#SF7 
$2003 
$0205 


S8C4F,Y 


S6F 


$2000 
#503 
A 
$8C4D 
$8C1A 
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Test bit for 'Busy' 

Will command still be executed? 
YES—Data controller ready? 
Write value for time byte $Al 
to diskette 

Write next byte 

All bytes done? 

Get status register & isolate 
command bits | 

Test bit for 'Busy' 

Will command still be executed? 
YES—Data controller ready? 
Write byte val:'Data Address 
Save’ to diskette 

Save current sector pointer 

Get number of sector portions 
Two-cycle delay 

Get status register & isolate 
command bits 

Test bit for 'Busy' 

Will command still be executed? 
YES—Data controller ready? 
Write empty byte for sector 

to diskette 

Test for length of a sub-sector 
Entire sub-sector written? 
NO—-Write further to 

next byte 

Initialize cntr:subsector length 
Decrement number of sub-sectors 
Write to other sub-sectors? 
NO-Get status register & isolate 
command bits 

Test bit for 'Busy' 

Will command still be executed? 
YES—Data controller ready? 
Write byte value for 2 CRC-bytes 
to diskette 

Identifier for sector length 
Get size/spaces between sectors 
Number of current sector 

Set space counter 

Get status register & isolate 
command bits 

Test bit for 'Busy' 

Will command still be executed? 
YES—Data controller ready? 
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a 


CLC 


#54E 


$2003 


S8C1A 
$0207 
$8C35 


$8B07 
$2000 
#$03 
A 
$8C48 
$8C35 


#$4E 

$2003 
$8C35 
$8861 


ebyte $24 


SEC 


Write byte value for space 3 
to diskette 

Write next byte 

All bytes done? 

Number of sectors to track 

All sectors set up? 
NO—-Increment sector counter 
write next sector 

Get status register & isolate 
command bits 

Test bit for 'Busy' 

Will command still be executed? 
YES—Data controller ready? 
Write byte value 

for space 4 

to diskette 

Fill rest of track 

Wait until command is finished 
Set flag for ‘formatting Ok' 
Jump to next byte (bit command) 
Set flag for format error 
Return from this subroutine 


Number of bytes for spaces between CP/M sectors 


Value for 128 bytes per sector 
Value for 256 bytes per sector 
Value for 512 bytes per sector 


Value for 1024 bytes per sector 


Number of CP/M sectors per track by formatting 


Value for 128 bytes per sector 
Value for 256 bytes per sector 
Value for 512 bytes per sector 


Value for 1024 bytes per sector 


Format diskette in ‘IBM System 34' 


8C24 AQ 4E 
8C26 8D 03 20 
8C29 CA 

8C2A DO EE 
8C2C CC 07 02 
8C2F FO 04 
8C31 C8 

8C32 4C 07 8B 
8C352 AD 00 20 
8C38 29 03 
8C3A 4A 

8C3B 90 OB 
8C3D FO F6 
8C3F 18 

8C40 AQ 4E 
8C42 8D 03 20 
8C45 4C 35 8C 
sc48+ 20 61 88 
8C4B 18 

gCc4c 24 

8C4D> 38 

8C4E 60 
[8C14] 

8C4F 07 

8C50 0c 

8C51 17 

8C52 2C 
[8CA7] 

8C53 (1A 

8C54 10 

8C55 09 

8C56 05 
[Vector: 86D8] 
8C57 AS 3B 
8C59 29 08 
8C5B FO 07 
8C5D A6 46 
8C5F 8E BO 01 
8C62 38 

8C63 60 

gc64l 20 07 D3 
8C67 AD 74 02 
8C6A 38 


LDA 
AND 
BEQ 
LDX 
STX 
SEC 
RTS 
JSR 
LDA 
SEC 


#$3B 
#508 
$8C64 
$46 
$01B0 


$D307 
$0274 


Test for 

write-protect flag 

Is 'Write Protect’ set? 

YES—Get error number 

& set as return message 

Flag for ‘Error encountered' 
Return from this subroutine 

Clear all channels 

Lengh of command string 

Draw off number of bytes utilized 
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04 


O1 
02 
8A 


8C 


02 


01 


02 
8A 


02 
8C 
02 


02 
20 


02 


02 


8C 
01 


#504 
$8C90 


$8C95 
#500 

$01B0 
$0205 
$8A57 


$8CA2 
$8CA7 
$8CAD 
$8CB5 


$8CBA 
$8CBF 
#500 
$0204 
#$00 
$01B0 
#501 
$0205 
$8A57 
#S27 
$0206 


$8C53,X 


$0207 
#500 
$0208 
$2001 
#500 
$0209 
#SE5 
$O020A 
S8CDE 
$01B0 
#502 
S8CDB 
$3B 
#$20 
$8CDB 
$3B 
#510 


1571 Internals 


and 

save value 

Any more statements onhand? 
Pointer to next command byte 
More statements in cmd string? 
YES-Set first track to be 
formatted 

Get identifier for 2nd length ¢& 
set appropriate pointer 

Pointer to next command byte 
More statements in cmd string? 
YES-Pointer to next command byte 
More statements in cmd string? 
YES—Pointer to next command byte 
More statements in cmd string? 
YES—Pointer to next command byte 
More statements in cmd string? 
YES—Pointer to next command byte 
More statements in cmd string? 
Set no insert-value 

Clear track statement 

in command string 

Set first track to be 

formatted (0) 

Set identifier for 256 bytes per 
sector 

Set sector pointer 

Lay. out size of 

formatted track 

Determine & set number 

of sectors per track 

Set first logical 

track number 

Give track over CP/M controller 
Set first physical track to be 
formatted 

Save empty bytes to fill 

sectors 

Format disk side in IBM format 
Get return message & compare 
with value for 'Ok' 

Is track formatting error-free? 
YES—Get command number & test 
flag for 'two sides' 

Should both sides be formatted? 
YES—Set flag for 

side 2 in 
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STA $3B 

JSR $8954 
JSR $8CDE 
JMP S89EF 


command number 

Activate head on current side 
Format disk side in IBM format 
Set head to track 0 & end 


8CD3. 85 3B 
8CD5 20 54 
8CD8 20 DE 
8CDB* 4C EF 
[8CBF/8CD8] 
Format disk 
8CDE 20 B3 
8CE1 BO 7C 
8CE3 AQ 01 
8CE5 8D OD 
8CE8 20 EF 
8CEB AD 08 
8CEE 8D BO | 
8CF1 8D 01 
8CF4 2C 03 
8CF7 70 05 
8CF9 20 88 
8CFC BO 61 
8cFE! aD 09 
8D01 29 7F 
8D03 FO 08 
8D05 18 
8D06 65 67 
8D08 85 67 
8D0A 20 BA 
8D0D2 78 
8D0E AD OD 
8D11 4A 
8D12 BO 4B 
8D14 20 86 
8D17 BO 46 
8D19 AD OD 
8D1C 4A 
8D1D BO 40 
8D1F 20 FO 
8D22 BO 3B 
8D24 AD OD 
8D27 4A 
8D28 BO 35 
8D2A AD BO 
8D2D CD 06 
8D30 FO OE 
8D32 E6 67 
8D34 EE 01 
8D37 EE BO 
8D3A 20 BA 


87 


18 


8A 


18 


88 


18 


O01 
02 


20 
O01 
87 


in 'IBM System 34' 


JSR $89B3 
BCS $8D5F 
LDA #$01 
STA $180D 
JSR S89EF 
LDA $0208 
STA $01B0 
STA $2001 
BIT $0203 
BVS S8CFE 
JSR $8888 
BCS $8D5F 
LDA $0209 
AND #S$7F 
BEQ $8DOD 
CLC 

ADC $67 
STA $67 
JSR $87BA 
SEI 

LDA $180D 
LSR A 

BCS $8D5F 
JSR $8A86 
BCS $8D5F 
LDA $180D 
LSR A 

BCS $8D5F 
JSR $88FO 
BCS S8D5F 
LDA $180D 
LSR A 

BCS $8D5F 
LDA $01B0 
CMP $0206 
BEQ $8D40 
INC $67 
INC $2001 
INC $01B0 
JSR $87BA 


Initialize track 

Is there an index hole? 
YES—-Re-initialize flag for disk 
exchange (write-protect changed) 
Set head for track 0 

Get 9th char from command string 
& set as first track number 

Send track # over CP/M controller 
Get 4th char from command string 
Flag for 'no sector table' set? 
NO-Create sector table 

Table created withou errors? 
YES—Get 10th char from cmndstring 
Set as first physical track # 
Head moved to a starting track? 
YES—Physical track at start-of- 
format should be 

computed 

Control track 

Disable bus/controller interrupt 
Test signal from circuitry for 
'Write-protect has to be changed' 
Has diskette been changed? 
NO—Format track 

Has an error been found? 

NO-Test signal from circuitry for 
'Write-protect has to be changed’ 
Diskette been changed? 

NO—Test sectors 

All sectors written error-free? 
YES—Test signal frm circuitry for 
'Write-protect has to be changed’ 
Has diskette been changed? 
Compare current logical track # 
with last number 

Is desired range formatted? 
NO-Set to next target track 

Put CP/M controller to next track 
Increment current track number 
Set head to track 
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8D3D 4C OD 8gD JMP S$8DOD Keep formatting 

sp401 24 3B BIT $3B Test flag in command number 

8D42 10 18 BPL $8D5C End track recognized / cleared? 
8D44 38 SEC Number of tracks to be formatted 
8D45 AD 06 02 LDA $0206 from last logical track 

8D48 ED 08 02 SBC $0208 & compute first track number 
8D4B C9 27 CMP #$27 Compare with maximum # of tracks 
8D4D BO OD BCS $8D5C Everything til side 2 formatted? 
8D4F E6 67 INC $67 YES—Go to side 2 for 

8D51 20 BA 87 JSR $87BA formatting 

8D54 A2 1c LDX #$1C Write 7168 times $55 (%01010101) 
8D56 20 63 9D JSR $9D63 to track 

8D59 20 00 FE JSR S$FEOO Switch head to read 

8D5C* A2 00 LDX #$00 Error number for 'Ok! 

8D5E 2C ~byte $2C Jump to next 2 bytes(bit command) 
8D5F© a2 06 LDX #$06 Error number for 'Format error’ 
8D61 8E BO 01 STX $01B0 Set return message & 

8D64 4C E9 85 JMP S85E9 get ready for output 
[8DFO/Vektor: 86D9] 

Read CP/M sector & send to computer 

8D67 AS 3B LDA $3B Get command #, & test Flag for 
8D69 29 20 AND #$20 "Buffer output only' 

8D6B DO 59 BNE $8DC6 Set? 

8D6D A9 03 LDA #$03 NO-—Set current buffer pointer to 
8D6F 85 31 STA $31 starting address 

8D71 AO OO LDY #$00 from buffer 0 

8D73 84 30 STY $30 ($0300) 

8D75 A6 44 LDX $44 Get number of sub-sectors 

8D77 AD 03 02 LDA $0203 Give track number to 

8D7A 8D 01 20 STA $2001 CP/M controller 

8D7D AD 04 02 LDA $0204 Give number of desired sector 
8D80 8D 02 20 STA $2002 over CP/M controller 

8D83 A9 88 LDA #$88 %$10001000 'Read sector' 

8D85 20 4E 88 JSR $884E command over CP/M controller 
8D88 EA NOP Two-cycle delay 

8D892 AD 00 20 LDA $2000 Get status register & isolate 
8D8C 29 03 AND #503 command bits 

8D8E 4A LSR A Test bit for 'Busy' 

8D8F 90 1A BCC $8DAB Will command still be executed? 
8D91 29 O01 AND #S01 YES—-Flagbit:'Data register ready' 
8D93 FO F4 BEQ $8D89 Wait until data are ready 

8D95 AD 03 20 LDA $2003 Get Data byte from CP/M 

8D98 91 30 STA ($30),Y controller & write in buffer 
8D9A CC 71 02 CPY $0271 Number of bytes per sub-sector 
8D9D FO 03 BEQ $8DA2 All bytes read? 

8D9F C8 INY NO-Buffer pointer to next byte 
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8DAO DO E?7 


spa2! cs 

8DA3. CA 

8DA4 FO 05 
8DA6 E6 31 
8DA8 4c 89 
8DAB2 20 61 
8DAE 20 3C 
8DB1 20 E9 
8DB4 24 3B 
8DB6 70 07 
8DB8 EO 02 


8DBC 4C 84 
8DBF2 20 F9 
8DC2 A5 3B 
8DC4 30 22 
spcé6! a9 03 
8DC8 85 31 
8DCA AO 00 
8DCC 84 30 
8DCE A6 44 
8DD02 B1 30 
8DD2 85 46 
8DD4 20 F9 
8DD7 cc 71 
8DDA FO 03 
8DDC CB 

8DDD DO Fl 
8DDF! cs 

8DEO CA 

8DE1 FO 05 
8DE3 E6 31 
8DE5 4C DO 
8DE82 CE 05 
8DEB FO 06 
8DED 20 6C 
8DFO 4C 67 
8pF3! 4c 1B 


8D 
88 
88 
85 


83 
85 


85 
02 


$8D89 


S8DAB 
$31 
$8D89 
$8861 
$883C 
S85E9 
$3B 
S8DBF 
#$02 
S8DBF 
$8384 
S85F9 
$3B 
S8DE8 
#$03 
$31 
#500 
$30 
$44 


($30),Y 


$46 

$85F9 
$0271 
$8DDF 


$8DDO 


S8DE8 
$31 . 
$8DD0 
$0205 


End of buffer reached? 

YES-—Clear buffer pointer 

Next sub-sector 

All sub-sectors read? 

NO—Buffer pointer to next buffer 
Keep reading sectors 

Wait until command is done 

Get status of CP/M controller 


Prepare error number for output 


Test flag for ‘Error noted' 
Should return message be tested? 
YES—Test against value for 'OK' 
Is number greater (error number) ? 
YES—Display error 

Output byte over 1571 bus 

Note flag for 'read sector only' 
Should buffer be transferred? 
YES—Set current buffer pointers 
($30/$31) to starting address 

in ($0300) 

buffer 0 ($0300) 

Number of sub-sectors per sector 
Get byte from buffer & save 

as character to be output 

Output byte over 1571 bus 

Number of bytes per sub-sector 
Entire sub-sector already sent? 
NO-Buffer pointer to next byte 
Reached end-of-buffer? 

YES—Set buffer pointer to start 
Decrement number of sub-sectors 
Whole sector already been sent? 
NO—Buffer pointer to next buffer 
Continue sending data 

# of sectors to be transferred 
Read more sectors? 

YES—Compute next sector number 
Read next sector 

Control next given track 
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re ee 


Send CP/M sector from computer and write to diskette 


[8EBF/Vector: 86DC] 

8DF6 AQ 03 LDA 
8DF8 85 31 STA 
8DFA AO 00 LDY 
8DFC 84 30 STY 
8DFE A6 44 LDX 
8E00 A5 3B LDA 
8E02 30 30 BMI 
8E042 AD 00 18 LDA 
8E07 49 08 EOR 
8E09 2C OD 40. BIT 
8EOC 8D 00 18 STA 
SEOF! AD 00 18 LDA 
8E12 10 03 BPL 
8E14 2059 EA JSR 
8£171 AD OD 40 LDA 
8E1A 29 08 AND 
8E1iC FO Fl BEQ 
8E1E AD 0C 40. LDA 
8E21 91 30 STA 
8E23 CC 7102 cPY 
8E26 FO 03 BEQ 
8E28 C8 INY 
8E29 DO D9 BNE 
8E2B! cg INY 
8E2C CA DEX 
8E2D FO 05 BEQ 
8E2F E6 31 INC 
8E31 4C 04 8E JMP 
8F34! a5 3B LDA 
8E36 29 20 AND 
8E38 DO 7D BNE 
8E3A AS 3B LDA 
8E3C 29 08 AND 
8E3E FO 05 BEQ 
8E40 A6 46 LDX 
8E42 4C 81 83 JMP 
8E451 ag 03 LDA 
8E47 85 31 STA 
8E49 AO 00 LDY 
8E4B 84 30 STY 
8E4D A6 44 LDX 
8E4F AD 03 02 LDA 
8E52 8D 01 20. STA 
8E55 AD 04 02. LDA 
8E58 8D 02 20. STA 


#$03 
$31 
#500 
$30 
$44 
$3B 
S$8E34 
$1800 
#$08 
$400D 
$1800 
$1800 
$8E17 
SEA59 
$400D 
#508 
S8EOF 
$400C 


($30),Y 


$0271 
$8E2B 


S8E04 


$8E34 
$31 
$8E04 
$3B 
#$20 
$8EB7 
$3B 
#508 
$8E45 
$46 
$8381 
#503 
$31 
#500 
$30 
$44 
$0203 
$2001 
$0204 
$2002 


set curr. buffer pointer $30/$31 
to starting address 

from buffer 

0 ($0300) 

Number of sections per sector 
Test flag for ‘buffer read! 

Data taken from computer? 
YES—Get bus control register & 
switch to Clock output 

Re-set interrupt register 

Set bus control register 

Test ATN input 

Set? 

Test for ATN command mode 
NO-Test flag for ‘serial 

input register full' 

Is data transmitting? 

YES—Get byte and write 

to buffer 

Number of bytes per sub-sector 
Entire subdivision read in? 
NO-Buffer pointer to next byte 
End of buffer reached? 

YES—-Set buffer pointer to start 
Next sub-sector 

Read more subdivisions from bus? 
YES—Buffer pointer to next buffer 
Continue reading 

Get command number and flag for 
‘Write buffer in sector’ 

Should sector be written? 
YES—Test out flag for 

"Write protect' 

Is write-protect active? 

YES—Get error number and 

output it 

Set curr. buffer pointer $30/$31 
to starting address 

from buffer 

OQ ($0300) 

Number of subsectors per sector 
Get track # from command string, 
and give to CP/M controller 

Get number of desired sector and 
give to CP/M controller 


ROM - 44 





Abacus Software 1571 Internals 
8E5B AD OD 18 LDA $180D Signal from circuitry for 

8E5E 4A LSR A 'Write-Protect has been changed! 
8E5F BO 32 BCS $8E93 Has diskette been changed? 

8E61 A9 A8 LDA #SA8 NO—%101010000 Convey'Write single 
8E63 20 4E 88 JSR $884E sector'command to CP/M controller 
8E66> AD 00 20 LDA $2000 Get status register and 

8E69 29 03 AND #$03 isolate command bits 

8E6B 4A LSR A Test bit for 'Busy' 

8E6C 90 25 BCC $8E93 Is command yet to be executed? 
8E6E 29 O01 AND #S01 YES-Flag: 'data register empty' 
8E70 FO F4 BEQ $8E66 Should new data be taken up? 

8E72 Bl 30 LDA ($30),Y YES—Get data byte from buffer and 
8E74 8D 03 20 STA $2003 write to diskette 

8E77 CC 71 02 CPY $0271 Number of bytes per subdivision 
8E7A FO 03 BEQ S$8E7F End of sub-sectors? 

8E7C C8 INY NO-buffer pointer to next byte 
8E7D DO E?7 BNE S8E66 End of buffer reached? 

sE7F1 cg INY YES-Set buffer pointer to start 
8E80 CA DEX Number of subdivisions per sector 
8E81 FO 05 BEQ $8E88 Still another sub-sector? 

8E83 E6 31 INC $31 YES-—Buffer address to next buffer 
8E85 4C 66 8E JMP S8E66 Keep writing to diskette 

8E88 AD OD 18 LDA $180D Check signal from circuitry for 
8E8B 4A LSR A 'Write-protect has to be changed' 
8E8C BO 05 BCS $8E93 Has diskette been exchanged? 

8E8E 20 C6 8E JSR $8EC6 NO—-Read sector to test 

8E91 90 07 BCC S$8E9A Read functions perfectly? 

8E93° 20 CE 81 JSR $81CE NO-Switch 1571 bus to output 

8E96 A2 07 LDX #$07 Error number for 'verify error' 
8E98 DO 06 BNE S$8EAO Jump to S$8EA0 

sE9Al 20 CE 81 JSR $81CE Switch 1571 bus to output 

8E9D 20 3C 88 JSR $883C Get CP/M controller error status 
8FAO! gE BO 01 STX $01B0 and save it 

8EA3 20 E9 85 JSR $85E9 Prepare error fo output 

8EA6 20 F9 85 JSR $85F9 Send byte over 1571 bus 

8EA9 20 AO 86 JSR $86A0 Wait for jumper from Clock 

8EAC 20 B2 81 JSR $81B2 Switch 1571 bus to input 

8EAF 24 3B BIT $3B Test 'Note error' flag 

8EB1 70 04 BVS $8EB7 Return message to be verified? 
8EB3 EO 02 CPX #$02 YES-Verify against error number 
8EB5 BO OE BCS $8EC5 Is there an error? 

8EB7* CE 05 02. DEC $0205 NO-# of sectors to be written 
8EBA FO 06 BEQ $8EC2 Any more sectors? 

8EBC 20 6C 88 JSR $886C YES—Get number of next sector 
8EBF 4C F6 8D JMP S8DF6 Read and write next sector 

8EC2! 4c 1B 89 IMP $891B Get next track and set it 

sEc51! 60 RTS Return from this subroutine 
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[8E8E/Vector: 
Compare CP/M sector with buffer contents (verify) 


8EC6 
8EC8 
8ECA 
8ECC 
8ECE 
8EDO 
8ED3 
8ED6 
8ED9 
8EDC 
8EDE 
8EE13 
8EE4 
8EE6 
8EE7 
8EE9 
8EEB 
8EED 
8EFO 
8EF2 
8EF 4 
8EF7 
8EF9 
SEFA 
sEFcL 
8EFD 
8EFE 
8F00 
8F02 
8F052 
8F07 
8FOA 
8FOD 


A9 
85 
AO 
84 
A6é 
AD 
8D 


03 
31 
00 
30 
44 
03 
O01 
04 
02 
88 
4E 
00 
03 


LC 
01 
F4 
03 
30 
1d 
71 
03 


E5 


02 
20 
02 
20 


88 
20 


20 


02 


8E 


20 


86DE] 


LDA 
STA 
LDY 
STY 
LDX 
LDA 
STA 
LDA 
STA 
LDA 
JSR 
LDA 
AND 


#503 
$31 
#500 
$30 
$44 
$0203 
$2001 
$0204 
$2002 
#588 
S884E 
$2000 
#$03 


LSR A 


BCC 
AND 
BEQ 
LDA 
CMP 
BNE 
CPY 
BEQ 
INY 
BNE 
INY 


LDX 


S8F05 
#$01 

S8EEF1 
$2003 


($30),Y 


$8F05 
$0271 
S8EFC 


S8EE1 


$8F10 
$31 
S8EE1 
#SD0 
$2000 
SA483 
#507 


-byte $2C 


LDX 
STX 
JMP 


#500 
$01B0 
$8861 


Set curr. buffer pointer $30/$31 
to starting 

address from 

buffer 0 ($0300) 

Number of subsectors per sector 
Get track # from command string & 
send to CP/M controller 

Get number of desired sector and 
send to CP/M controller 
%10001000 'Read Sector’ 

Send command to controller 

Get status register and 

isolate command bits 

Test bit for 'Busy' 

Command yet to be executed? 
YES-Test 'Ready for data' flag 
Wait until data byte is ready? 
Read byte from diskette 

and compare with buffer contents 
Identical? 

YES—-Number of bytes/sub-sector 
Entire subdivision compared? 
NO—-buffer pointer to next byte 
End of buffer reached? 

YES—-Set buffer pointer to start 
Number of sub-sectors 

Any sub-sectors left? 
YES—Pointer addr to next buffer 
Continue verify 

%$11010000 ‘Forced Interrupt! 

on controller; verify ends 
Approx. 80-cycle delay 

Error number for 'verify error' 
Jump to next 2 bytes(bit command) 
Error number for 'Ok! 

Save number 

Wait for end of command 


ROM - 46 


Abacus Software 


1571 Internals 





empty contents 


Set curr. buffer pointer $30/$31 
to starting address 

from 

buffer 0 ($0300) 

Number of sub-sectors per sector 
Length of a sub-sector 

%10001000 ‘Read Sector' 

Give command to CP/M controller 
Get status register and 

isolate command bits 

Test bit for 'Busy' 

Command still need to be run? 
YES—Test ‘Ready for data' flag 
Waiting for a data byte? 

Read byte from diskette & compare 
with value for empty byte 
Identical? 

YES—Next byte 

Entire sub-sector compared? 
YES—Number of sub-sectors 

Any more sub-sectors? 

YES-Set counter again 

Buffer pointer to next buffer 
Continue testing 

'11010000' ‘Forced Interrupt’ to 
controller; command interrupt 
Wait approx. 80 cycles 

Error number for 'verify error’ 
Jump to next two bytes 

Error # for ‘Header not found' 
Set number 

Wait until command is finished 


CP/M headers and determine sector sequence 


[8900/Vector: 86E0] 

Test CP/M sector for 

8F18 A9 03 LDA #$03 
8F1A 85 31 STA $31 
8F1C AO 00 LDY #$00 
8F1E 84 30 STY $30 
8F20 A6 44 LDX $44 
8F22 AC 7102 #£LDY $0271 
8F25 AQ 88 LDA #$88 
8F27 20 4E 88 JSR $884E 
8F2A2 AD 00 20 LDA $2000 
8F2D 29 03 AND #$03 
8F2F 4A LSR A 
8F30 90 1A BCC $8F4C 
8F32 29 01 AND #$01 
8F34 FO F4 BEQ $8F2A 
8F36 AD 03 20 LDA $2003 
8F39 CD OA 02. CMP $020A 
8F3C DO OE BNE S$8F4C 
8F3E 88 DEY 

8F3F 10 E9 BPL $8F2A 
8F41 CA DEX 

8F42 FO 13 BEQ $8F57 
8F44 AC 7102 #£z4LDY $0271 
8F47 E6 31 INC $31 
8F49 4C 2A 8F JMP S$8F2A 
8F4c2 AQ DO LDA #$D0 
8F4E 8D 00 20 STA $2000 
8F51 20 83 A4 JSR $A483 
8F54 A2 07 LDX #$07 
8F56 2C wbyte $2C 
8F571 a2 00 LDX #$02 
8F59 8E BO 01 STX $01B0 
8F5C 4C 61 88 JMP $8861 
(Vector: 86E2] 

Read all 

8F5F 08 PHP 

8F60 78 SEI 

8F61 20 EF 89 JSR $89EF 
8F64 24 3B BIT $3B 
8F66 10 08 BPL $8F70 
8F68 AD 03 02 LDA $0203 
8F6B 85 67 STA $67 
8F6D 20 BA 87 JSR $87BA 
8F701 a9 00 LDA #$00 
8F72 85 97 STA $97 


Retain processor status 

Disable bus/controller interrupt 
Set head to track 0 

Test ‘Track set' flag 

Should a new track be turned to? 
YES—Get track # from cmd string 
and set as target track 

Position head to track 

Clear counter for number 

of sectors 
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Read next header 

Get return message and check 
against error number 

Read procedure done, error-free? 
YES—Get sector number and save 
as first sector number 

Read next header 

Get sector number 

Pointer to curr. sector position 
Enter sector number in table 
Pointer to next sector entry 
Compare with max. # of sectors 
Number of sectors allowable? 
YES-Test against first sector # 
Reached the first sector again? 
YES—Get track # from header & 
set as current target track 
Value for 'Ok' message 

Jump to next 2 bytes(bit command) 
Error number: 'Header not found! 
set return message 

Re-establish processor status 
Return from this subroutine 


8F74 20 
8F77 AE 
8F7A EO 
8F7C BO 
8F7E AS 
8F80 85 
grg2t 20 
8F85 AS 
8F87 A4 
8F89 99 
8F8C EG 
8F8E CO 
8F90 BO 
8F92 C5 
8F94 DO 
8F96 AS 
8F98 85 
8F9A A2 
8F9C 2C 
8F9D2 A2 
8FOF 8E 
8FA2 28 
8FA3 60 
[8SFF1] 


'S'-command 


27 8A JSR $8A27 
BO O01 LDX $01B0 
02 CPX #S02 
1F BCS S8F9D 
26 LDA $26 
96 STA $96 
27 8A JSR $8A27 
26 LDA $26 
97 LDY $97 
OB 02 STA $020B,Y 
97 INC $97 
1F CPY #S1F 
OB BCS $8F9D 
96 CMP $96 
EC BNE S$8F82 
24 LDA $24 
67 STA $67 
00 LDX #$00 

-byte $2C 
02 LDX #$02 
BO 01 STX $01B0 

PLP 

RTS 

(sector) 


: Set sector 


format for Commodore diskettes 


8FA4 AD 04 02 LDA $0204 Get 5th char from command string 
8FA7 85 69 STA $69 and set as new sector format 
8FA9 60 RTS Return from this subroutine 
{[8FF5] 

'"R'-command (Read) : Set number of read attempts 

8FAA AD 04 02 LDA $0204 Get 5th char from command string 
8FAD 85 6A STA S6A and set as new # of read attempts 
8FAF 60 RTS Return from this subroutine 
[8FF9] 

'T'-command (Test) : Test ROM checksum 

8FBO 4C 4E 92 JMP $924k Compute checksum 

[9001] 


"H'-command (Head) : 
(in 1541 mode only) 


Set head at given diskette side 


8FB3 78 SEI Disable bus/controller interrupt 
8FB4 AD OF 18 LDA $180F Get control register and get 
8FB7 29 20 AND #$20 flag for operating mode 

8FB9 DO 66 BNE $9021 Is drive in 1541 mode? 
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YES-Get 5th char from cmnd string 
and compare with '1' 

Should head be set to side 2? 
NO-Compare with '0O' 

Should head be set to side 1? 
YES—Get control register and 
switch head circuitry to 

side 1 

Enable bus/controller interrupt 
Test flag in command number 
Should diskette be initialized? 
NO-Return from this subroutine 


8FBB AD 04 02 
8FBE C9 31 
8FCO FO 12 
8FC2 C9 30 
8FC4 DO 5B 
8FC6 AD OF 18 
8FC9 29 FB 
8FCB 8D OF 18 
8FCE 58 

8FCF 24 3B 
8FD1 10 OE 
8FD3 60 
[8FCO] 

Change head to 
8FD4 AD OF 18 
8FD7 09 04 
8FD9 8D OF 18 
8FDC 58 

8FDD 24 3B 
8FDF 30 03 
8FE11 4c 42 DO 
sFE41 60 


LDA 
ORA 
STA 
CLI 
BIT 


$180F 
#$04 
$180F 


Get control register and 

place bit for head electronics to 
side 2 

Enable bus/controller interrupt 
Test flag in command number 
Should diskette be initialized? 
YES—Read BAM from diskette 

Return from this subroutine 


[Origin of vector 80C2 through routine 8030] 


Decode status/control functions 


8FES5 
8FE8 
8FEA 
8FEC 
8FEF 
8FF1 
8FF3 
8FFS5 
8FF7 
8FF9 


74 02 
04 
35 
03 02 
53 
Bl 
52 
B3 
54 
BS 
4D 
27 
48 
BO 


LDX 
CPX 
BCC 
LDA 
CMP 
BEQ 
CMP 
BEOQ 
CMP 
BEQ 
CMP 


$0274 
#$04 
$9021 
$0203 
#$53 
S8FA4 
#$52 
S8FAA 
#$54 
$8FBO 


Determine length/command string 
and test if 4 chars are given 
Command a minimum 4 char long? 
YES-—Get 4th char from command 
and compare with 'S' 

Should sector format be set? 
NO-—Compare with 'R' 

Set number of read attempts? 
NO-—Compare with 'T! 

Test ROM-checksum? 

NO-—Compare with 'M' 

1541/1571 mode switched around? 
NO-Compare with 'H' 

Should diskette side be changed? 
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a 


Set device address (number in A) 


9003 
9004 
9006 
9008 
900A 
900C 
900E 
9010 
9012 
9014 
9015 
9016 
9018 
901A 
901B 


A8 
co 
90 
CO 
BO 
A9 


04 
19 


TAY 
CPY 
BCC 
CPY 
BCS 
LDA 
STA 
LDA 
STA 
TYA 
CLC 
ADC 
STA 
TYA 


#504 
$9021 
#S1F 
$9021 
#540 
$78 
#520 
$77 


$78 
$78 


Save device address 

Compare with minimal IEC address 
Is new address smaller? 

NO—Check maximum IEC address 

New address in allowable range? 
YES—-Set identifier for 

Talk 

Set identifier for 

Listen 

Get new device address and use it 
to set new address for 

Talk call 

Set address 

Get new device address and use it 
to establish new address for 
Listen call 

Set address 

Return from this subroutine 


[8FB9/8FC4/8FEA/9006/900A/ 9030] 


LDA 
JMP 


#$31 
$C1C8 


Display 
'31 Syntax Error' message 


SEI 
LDA 


9021 A9 31 

9023 4C C8 Cl 
[8FFD] 

'M'-command (Mode) : 
9026 78 

9027 AD 04 02 

902A C9 31 

902C FO 20 

902E C9 30 

9030 DO EF 


1541 / 1571 operating mode switching 


$0204 


Disable bus/controller interrupt 
Get 5th char from command string 
and compare with '1' 

Switched into 1571 mode? 
NO—Compare with '0! 

Switched into 1541 mode? 


Switch to 1541 mode 


9032 
9035 
9037 
903A 
903D 
9040 
9043 
9045 


AD 
29 
8D 


OF 18 
DF 

OF 18 
83 A4 
82 FF 
AF 02 
80 

AF 02 


3B 
2F 


LDA 
AND 
STA 
JSR 
JSR 
LDA 
ORA 
STA 
CLI 


YES—Get control register 

Switch control & bus electronics 
to 1541 (1 MHz speed) 

80-cycle delay 

Initialize 1541 mode 

Set flag for 

‘1541 IRQ Routine' 

($9D88) 

Enable bus/controller interrupt 
Test flag in command number 
Should diskette be initialized? 
NO—Return from this subroutine 
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Switch to 1571 mode 


[902C] 

904E AD 
9051 09 
9053 8D 
9056 20 
9059 AQ 
905B 8D 
905E A9 
9060 8D 
9063 A9 
9065 8D 
9068 8D 
906B AD 
906E 29 
9070 8D 
9073 AQ 
9075 85 
9077 58 
9078 24 
907A 30 
907c1 4c 
907F1 60 


OF 18 
20 
OF 18 
83 A4 
DE 
AQ 02 
9D 
AA 02 
40 
07 1C 
05 1C 
AF 02 
TF 
AF 02 
00 
62 


3B 
03 
42 DO 


LDA 
ORA 
STA 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
LDA 
AND 
STA 
LDA 
STA 
CLI 
BIT 


Get control register and 

switch bus, operating electronics 
to 1571 (2 MHz speed) 

80-cycle delay 

IRQ vector in $02A9/S02AA to 
job loop call 

Turn to 1571 routine in 

$9DDE | 

Timer 1 (High-Byte) 

set to about 

8 ms 

Set flag for 

"Toggle IRQ from 1541 to 

L571" 

Clear flag for current 

headmode 

Enable bus/controller interrupt 
Test command number 

Should diskette be initialized? 
YES—Read BAM from diskette 
Return from this subroutine 


[BF66/Origin over vector in 80CC through routine 8030] 
Fast-load file over 1571 bus (PRG, SEQ or USR) 


9080 
9083 
9086 
9088 
908B 
908D 
908F 
9091 
9093 
9095 
9098 
909B 
909D 
909F 
90A1 
90A3 
90A4 
90A7 
OOAA 
90AB 
90AE2 


20 
20 
BO 
20 
AS 
DO 
A5 
09 
85 
20 
AD 
C9 
DO 
AS 
FO 
48 


CE 81 
EA 91 
oF 
3D C6 
FF 
98 
37 
81 
37 
CA 91 
00 02 
2A 
OF 
TE 
OB 


6F 02 
85 02 


EC 90 
00 


JSR 
JSR 
BCS 
JSR 
LDA 
BNE 
LDA 
ORA 
STA 
JSR 
LDA 
CMP 
BNE 
LDA 
BEQ 
PHA 
LDA 
STA 
PLA 
JMP 
LDA 


$81CE 
S9O1EA 
$90E7 
$C63D 
SFF 
$90E7 
$37 
#$81 
$37 
$91CA 
$0200 
#S2A 
S90AE 
STE 
S90AE 


SO26F 
$0285 


$90EC 
#500 


Switch 1571 bus to output 

Prepare filename 

Improper filename? 

NO-Initialize diskette 

Get flag for drive status 

Is drive ready? 

YES—Get bus status and set 

flags for '1571 mode' and 

‘last sector’ 

Set channel and buffer parameters 
Get first character of filename & 
compare with wildcard '*! 

Load last-loaded file? 

YES—Get number of last track 

Is track number given? 

YES—Save number 

Get number of last sector & enter 
in table 

Get last track number 

Load file 

Clear pointer and register: 
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90B0 
90B1 
90B2 
90B5 
90B8 
90BB 
90BE 
90BF 
90C1 
90C4 
90C6 
90C8 
90CB 
90CC 
90CF 
90D1 
90D3 
90D5 
90D7 
90D9 
90DB 
90DD 
90pFl 
90E2 
90b41 
90E6 
90E72 
90E9 
90EC2 
90EE 
OOEF 
90F2 
90F3 
90F6 
90F8 
90FB 
Q0FE 
9100 
9102 
9105 
9107+ 
9108 
910A 
910C 
910E 
9111 
9113 


8E 
7A 
12 
78 


O01 
78 
FF 
86 
4F 


718 
37 
71F 
37 
3B 
06 
E7 
02 
05 
80 
08 
02 


OF 
AD 
TE 


DA 


BO 
06 
85 
6F 
07 
80 
02 
SE 


F9 
oF 
00 
4B 
02 
03 


02 
02 
C3 
02 


02 


C4 


02 


02 


91 


91 


02 


02 
02 


02 


86 


TAY 
TAX 
STA 
STA 
JSR 
LDA 
PHA 
LDA 
STA 
LDA 
STA 
JSR 
PLA 
STA 
LDA 
AND 
STA 
BIT 
BMI 
LDA 
CMP 
BNE 
LDA 
BNE 
LDX 


$028E 
S$O27A 
$C312 
$0278 


#501 
$0278 
#SFF 
$86 
SC44F 


$0278 
$37 
#S7F 
$37 
$3B 
S90ODF 
SE7 
#$02 
S90E4 
$0280 
S90EC 
#$02 


-byte $2C 


LDX 
JMP 
STA 
PHA 
JSR 
PLA 
LDX 
STA 
LDA 
STA 
STA 
LDA 
STA 
STA 
CLI 
LDX 
LDA 
STA 
JSR 
CPX 
BCC 


#SOF 
$91AD 
STE 


$91DA 


$02B0 
$06,X 
$0285 
$026F 
$07,X 
#$80 
$0202 
SOF 


SF9 
SOF 
$00,X 
$864B 
#$02 
$9118 


[(Error-- see 7.1.5] 

[Unnecessary initialization] 
Number of last drive 

Pointer to first filename 

Get drive # from command string 
Retain number of filenames 

found and allow 

for only one 

filename 

Clear pointer in 

directory buffer 

Search for entry in directory 
Repeat pointer with number 

of filenames 

Get bus status and 

clear flag for 

‘1571 mode' 

Get command number and test flag 
Should file be tested for 'PRG'? 
Determine filetype of file entry 
& compare with identifier for PRG 
Is entry a PRG file? 

YES-—Track # of first file sector 
Entry to be found in directory? 
Error number for 'File Not Found! 
Jump to next 2 bytes(bit command) 
Error # for 'Drive Not Ready' 
Send error over 1571 bus 

Save last track and 

retain number 

Compute pointer to job table 
Repeat last track number 

Get pointer from job table and 
set track of job 

Get last sector number 

and save down 

Give sector number to jobloop 
Read jobcode for 

sector and save 

as current jobcode 

Enable bus/controller interrupt 
Get number of current buffer and 
give current jobcode 
to job loop 

Execute job 

Check return message to 
Job run error-free? 


TOK! 
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9115 
91181 
9119 
911B 
911D 
911F 
9121 
9123 
9125 
9128 
912A! 
912C 
912D 
9130 
9131 
9133 
9136 
9138 
913A 
913C 
913E 
913F2 
9141 
9143 
9145 
9147 
9149 
914B 
914E+ 
9150 
9153 
9155 
9157 
9159 
915A 
915C 
915D 
915F 
9161 
9162 
9165 
9166 
9168 
9169 
916C 
916D 
916F 


AA 


AA 


99 91 


00 
94 
2F 
37 
FE 
37 
28 92 
02 
94 


28 92 


F7 
BO 02 
94 
06 
03 
80 


88 
oF 
06 
01 
94 
07 
O07 91 
1F 
28 92 
01 
37 
1E 


94 


03 
46 


28 92 


94 


28 92 


94 


JMP 
SEI 
LDY 
LDA 
BEQ 
LDA 
AND 
STA 
JSR 
LDY 
LDA 
TAX 
JSR 
INY 
BNE 
LDX 
LDA 
CMP 
BEQ 
LDY 


$9199 


#$00 


($94) ,Y 


$914E 
$37 
#$FE 
$37 
$9228 
#$02 


($94) ,Y 


$9228 


$912A 
$02B0 


($94) ,Y 


$06,X 
$913F 
#$80 


-byte $2C 


LDY 
STY 


#588 
SSF 
$06,X 
#$01 


($94),Y 


$07,X 
$9107 
#S1F 
$9228 
#501 
$37 
$9177 


($94) ,Y 


#$03 
$46 


$9228 


($94) ,Y 


$9228 


($94),Y 


NO-Display return message 

Disable bus/controller interrupt 
Buffer pnter to lst byte/sector 
Get byte from buffer 

Is this the last sector? 

NO-Get bus status and 

clear flag for ‘last 

sector' 

Give last 'OK'message by 1571 bus 
Buffer pointer to first data byte 
Get byte from buffer and prepare 
for output 

Output byte over 1571 bus 

Turn buffer pointer to next byte 
Entire buffer alredy transferred? 
YES—Get pointer in job table 
Track of next sector from buffer 
Compare with track of last job 
Next sector to same track? 
NO-Jobcode for 'Read sector’ 

Jump to next 2 bytes(bit command) 
Jobcode'Read sector of sametrack' 
Set jobcode and give 

track number to job loop 

Pointer to number of next sector 
Get byte from linked bytes and 
give to job loop 

Transfer next sector 

Give return message for 'last 
sector' over 1571 bus 

Test flag for 'only one sector' 
in bus status byte 

Does program have only one block? 
YES-Set buffer pointer 

Get # of data bytes applicable to 
sector and remove 

bytes for starting address & 
linking bytes 

Give # of bytes still to be 

sent over 1571 bus 

Buffer pointer to prg start addr 
Get lo-byte of start address & 
set as character to be output 
Send byte over 1571 bus 

Turn buffer pointer to hi-byte & 
get byte from buffer 

Give rest of starting address 
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9170 20 28 92 JSR $9228 
9173 AO 04 LDY #804 
9175 DO OD BNE $9184 
91771 AO 01 LDY #$01 
9179 Bl 94 LDA ($94),Y 
917B AA TAX 

917C CA DEX 

917D 86 46 STX $46 
917F 20 28 92 JSR $9228 
9182 AO 02 LDY #$02 
91842 Bl 94 LDA ($94),Y 
9186 AA TAX 

9187 20 28 92 JSR $9228 
918A C8 INY 

918B C6 46 DEC $46 
918D DO F5 BNE $9184 
918F AQ 00 LDA #$00 
9191 85 83 STA $83 


[9115/A9CF] 

Display error message 

9199 78 SEI 

919A 86 46 STX $46 
919C 20 28 92 JSR $9228 
919F A9 O00 LDA #$00 
91A1 85 83 STA $83 
91A3 20 CO DA JSR $DACO 
91A6 A6 FY LDX S$F9 
91A8 A5 46 LDA $46 


[90E9] 

Output Load error 

91AD 78 SEI 

91AE 86 46 STX $46 
91B0 A2 02 LDX #$02 
91B2 20 28 92 JSR $9228 
91B5 A9 00 LDA #$00 
91B7 85 83 STA $83 


91B9 20 CO DA JSR SDACO 


over 1571 bus 

Set buffer pntr to begin. of data 
Jump to $9184 

Pointer to data bytes yet allowed 
Get # of data bytes from buffer 
and save number 

Send number of data bytes 

still ahead over 

1571 bus 

Pointer to start of data range 
Get byte from buffer and prepare 
for output 

Send byte over 1571 bus 

Turn buffer pointer to next byte 
# of bytes yet to be transferred 
All of them sent? 

YES-—Set secondary address 

for Load 

Close file 

Prepare return message 


Disable bus/controller interrupt 
Send error number over 

1571 bus 

set secondary address for 

Load 

Close file 

Number of current buffer 

Error number 

Prepare text version of message 


Disable bus/controller interrupt 
Save error number 

Error number for ‘File Not Found! 
over 1571 bus 

Set secondary address 

for load 

Close file 
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91BC A5 46 LDA $46 Repeat error number and check 
S91BE C9 02 CMP #$02 against 'File Not Found!’ 

91C0 FO 03 BEQ $91C5 Identical? 

91C2 AQ 74 LDA #$74 NO-Number for 'Drive Not Ready' 
91C4 2C AY 62 ~byte $2C Jump to next 2 bytes(bit command) 
91c51 ao 62 LDA #$62 Number for 'File Not Found! 

91C7 4C C8 Cl JMP $C1C8 Prepare text of message 

[9095] 

Set up channel and buffer for Fast Load 

91CA AQ 00 LDA #$00 Set secondary address for Load 
91CC 85 83 STA $83 and set 

91CE AQ O01 LDA #$01 number of buffer to be opened 
91D0 20 E2 Dl JSR $D1E2 Open buffer and channel 

91D3 AA TAX Get # of appropriate buffer and 
91D4 BD EO FE LDA SFEEO,X take high-byte of buffer address 
91D7 85 95 STA $95 in buffer pointer 

91D9 60 RTS Return from this subroutine 
[90EF] 

Find out track & sector numbers from job table 

91DA AS 95 LDA $95 Get high-byte of buffer pointer 
91DC 38 SEC & compute logical buffer # from 
91DD E9 03 SBC #$03 physical address; set 

91DF 85 F9 STA SF9 as current buffer number 

91E1 OA ASL A Double number (for 2-byte table) 
91E2 8D BO 02 STA $02BO0 and save it 

91E5 A9 00 LDA #$00 Reset low-byte of buffer pointer 
91E7 85 94 STA $94 to buffer start 

91E9 60 RTS Return from this subroutine 
[9083] 

Shift filename to beginning of input buffer 

91EA AO 03 LDY #$03 Pointer to beginning of filename | 
91EC AD 74 02 LDA $0274 Get length of command string & 
91EF 38 SEC take up character 

91FO E9 03 SBC #$03 for 'U0' command 

91F2 8D 74 02 STA $0274 Save length of filename 

91F5 AD 04 02 LDA $0204 Check for colon ":" as second 
91F8 C9 3A CMP #S3A character of filename 

91FA DO OE BNE $920A Drive identifier onhand? 

91FC AD 03 02 LDA $0203 _YES-Get and save drive 

91FF AA TAX number 

9200 29 30 AND #$30 Check for number in ASCII- 

9202 C9 30 CMP #$30 numbers 

9204 DO 04 BNE $920A Is there a number? 

9206 EO 31 CPX #$31 YES—Compare with '1' 
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1C 
03 
3A 
04 
74 


00 
00 
00 


74 
F3 


02 


02 


02 
02 


02 


BEQ 
LDA 
CMP 
BNE 
DEC 
INY 
LDX 
LDA 
STA 
INY 
INX 
CPX 
BNE 
CLC 


$9226 
$0203 
#S3A 
$9215. 
$0274 


#$00 


$0200,Y 
$0200,X 


$0274 
$9217 


ebyte $24 


SEC 


Drive 1 switched over? 
YES—Compare with '0'! 

Compare with ':' 

Is there also a colon? 
YES—Abbreviate length of filename 
Pointer to next buffer byte 
Pointer to begin. of input buffer 
Shift filename to 

beginning of buffer 

Turn buffer pointer to 

next character 

Compare with end of filename 
Entire name already shifted? 
YES-Flag for 'Name error-free' 
Jump to next byte (bit command) 
Flag for bad drive declaration 
Return from this subroutine 


[9125/912D/9150/9162/9169/9170/917F/9187/919C/91B2/A9EA] 
Byte given over 1571 


18 
18 


40 


40 


LDA 
CMP 
BNE 
AND 
BMI 
EOR 
AND 
BEO 
STX 
LDA 
EOR 
STA 
LDA 


bus for Fast Load 


$1800 
$1800 
$9228 
#SFF 


$924B 


$37 
#504 
$9228 
$400C 
$37 
#$04 
$37 
#$08 
$400D 
$9245 


Get bus control register 

and wait for constant status 
No changes? 
YES-Set processor 
Is ATN input set? 
NO-—Get bus status flag and check 
with anticipated Clock status 
Clock changed since last time? 
YES-Write byte in output register 
Get bus status and 

set flag for 'Clock input status’ 
to next value 

Test flag for ‘Output register 
empty' 

Is byte transferred? 

YES—Return from this subroutine 
ATN command working 


flag (N/Z) 


9228 AD 00 
922B CD 00 
922E DO F8 
9230 29 FF 
9232 3017 
9234 45 37 
9236 29 04 
9238 FO EE 
923A 8E 0C 
923D AS 37 
923F 49 04 
9241 85 37 
9243 AQ 08 
92451 2c oD 
9248 FO FB 
924A 60 

924B1 4c B3 
[8FBO/BF69] 
Compute ROM 
924E 08 

924F 78 

9250 A2 00 
9252 86 00 
9254 86 01 
9256 AQ 03 
9258 85 75 


checksum 


PHP 
SEI 
LDX 
STX 
STX 
LDA 
STA 


and test ROM 


#500 
$00 
$01 
#503 
$75 


Retain processor status 

Disable bus/controller interrupt 
Clear result register 

for checksum to 

be computed 

Set starting address of 


ROM (low-byte) 
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925A 
925B 
925D 
925F2 
9261 
9263 
92651 
9267 
9269 
926B 
926D 
926F 
92711 
9272 
9274 
92761 
9277 
9278 
9279 
927B 
927D1 
927F 
9280 
9281 
9283 
92851 
9287 
9289 
928B 
928D 
928E 
9290 
9292 
9294 
9296 
9298 
9299 
929A 
9298 
929D 
92A0 
92A2 
9204 
92A7 
92A9 
92AB 
92AD 


80 
716 
715 
02 
08 
02 
01 
03 
01 
02 
03 


02 
03 


02 
03 
00 


02 
03 
03 
00 
O01 
02 


DS 
75 
CB 
716 
C7 


00 
00 
1 
01 
O01 
OA 
00 
01 
02 


80 


80 


TAY 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
AND 
STA 
LDA 
BPL 
INC 
ROR 
BCC 
INC 
ROR 
ROR 
ROR 
BCC 
INC 
LDA 
ROL 
ROL 
BCC 
INC 
ROR 
ROL 
ROL 
ROR 
DEX 
BNE 
INC 
BNE 
INC 
BNE 
DEY 
DEY 
DEY 
LDA 
CMP 
BNE 
LDA 
CMP 
BNE 
STY 
STY 
STY 


#580 
$76 


($75),¥Y 


$02 
#$08 
$02 
#501 
$03 
$01 
$9271 
$03 

A 
$9276 
$03 


Set pointer 

Determine high-byte of 

ROM address 

Get byte from ROM 

and save it 

Number of bits per byte 

Get ROM byte and isolate 

a bit 

Take bit into temporary storage 
Add bit 15 of 
checksum register 
to it 

Add bit 11 

of checksum register 
to it 

Bit 8 of 16-bit 
checksum register 
in $00 and $01; 
compute for 
temporary storage 
Get bit 6 

of checksum register 
and add 

to temporary 
storage 

Move checksum registers one bit 
to the left; transfer bit 0 into 
free area . 

Go to next bit of ROM byte 
Number of bits per byte 

Entire byte handled? 

YES—Turn pointer to current. 
byte in ROM 

to next position 

Reached end address SFFFF? > 
YES—Set pointer 

back to 

Zero 

Test first byte computed against 
correct checksum 

Error? 

NO—Test 2nd byte computed against 
correct checksum 

Checksum error? 

NO—Clear checksum register 

and the 

different temporary storage 
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areas 

Re-establish processor status 
Return from this subroutine 
Initialize flag for 

hardware error 

Show hardware error (LED blinks) 


O2AF 84 03 
92B1 28 

92B2 60 

92B37 A2 03 
92B5 86 6F 
92B7 4C 71 FA 
[9F08/9E11/BF09] 
1571 jobloop 
92BA BA 

92BB 86 49 
92BD 2C 04 1C 
92CO AD 0C 1C 
92C3 09 OE 
92C5 8D 0c Ic 
92C8 AO 05 
92ca! B9 00 00 
92CD 30 06 
92CF 88 

92D0 10 F8 
92D2 4C CA 99 
92D51 co 88 
92D7 DO 03 
92D9 4C OD 96 
92pc! c9 DO 
92DE DO 03 
92FO 4C A2 93 
92E31 29 01 
92E5 FO 07 
92E7 84 3F 
92E9 AQ OF 
92EB 4C BS 99 
92EF! aa 

92EF C5 3E 
92F1 FO 08 
92F3 85 3E 
92F5 20 7E F9 
92F8 4C CA 99 
92FB! AS 20 
92FD 30 03 
92FF OA 

9300 10 03 
93021 4c cA 99 
93051 a9 20 
9307 85 20 
9309 AO 05 
930B 84 3F 


$0000,Y 


$92D5 


$92CA 
S99CA 
#$88 
$92DC 
$960D 
#SD0 
$9253 
$93A2 
#$01 
S92EE 
$3F 
#S0OF 
$99B5 


$3E 
$92FB 
$3E 
SFO7E 
$99CA 
$20 
$9302 
A 
$9305 
S99CA 
#$20 
$20 
#$05 
$3F 


Save current. stack 

pointer 

Timer re-set 

CA2 output 'SOE' 

(Serial Output Enable) 

set to high 

Number of buffers 

Get jobcode of buffer 

Is jobcode onhand? 

NO—Test next buffer 

All buffers tested out? 
YES—Execute stepper commands 
Jobcode'Read sector on same trak' 
Identical? 

YES—Read sector in buffer 
Jobcode for 'Execute program’ 
Identical? 

YES—-Start program in buffer 
Get number of desired drive 
Drive 0 chosen? 

NO-Save buffer number 
Display 

"Drive not Ready' error message 
Save drive number and test 
against active drive 
Identical? 

NO-Then reset current drive 
Switch drive number on 
Execute stepper command 

Get drive status 

Is drive ready? 

YES-Test stepper motor flag 
Is head still moving? 
YES—Execute stepper function 
Set drive status flag for 
"Motor on/Drive ready' 
Number of buffers 

Choose current buffer 
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930D1 
9310 
93122 
9314 
9316 
9318 
931B 
931D 
931F 
9321 
9323 
9325 
9327 
9329 
932c1 
932E 
9330 
9332 
9334 
9336 
9338 
933A 
933B 
933D 
933F 
9340 
9341 
9343 
9345 
9347 
9349 
934B 
934D 
93501 
9352 
9354 
9356 
9358" 
9359 
935B 
935D 
935F 
9361 
9363 
9365 
93682 
936A 


20 


29 


4c 
A2 
Bl 


D1 93 
1A 
3F 
F7 
41 
D3 93 
42 
4A 
4A 
60 
20 
32 
22 
CA 99 
01 
3E 
EO 
22 
32 
22 
24 


32 


24 


80 
OB 
11 
22 
23 
22 
598 93 
06 
22 
23 
22 


32 
22 
09 
42 
3F 
41 
12 93 
04 
32 


JSR 
BMI 
DEC 
BPL 
LDY 
JSR 
LDA 
STA 
ASL 
LDA 
STA 
LDA 
STA 
JMP 
AND 
CMP 
BNE 
LDA 
BEQ 
LDA 
CMP 
PHP 
LDA 
CMP 
ROR 
PLP 
AND 
BCC 
BMI 
LDA 
SBC 
STA 
JMP 
BPL 
LDA 
ADC 
STA 
SEC 
LDA 
SBC 
BEQ 
STA 
LDA 
STA 
JMP 
LDX 
LDA 


$93D1 
$932C 
$3F 
$930D 
$41 
$93D3 
$42 
S4A 
S4A 
#$60 
$20 


($32),Y 


$22 
$99CA 
#$01 
$3E 
$9312 
$22 
$9368 
$22 
#$24 


($32),Y 


#$24 
A 


#$80 
$9350 
$9358 
$22 
#$23 
$22 
$9358 
$9358 
$22 
#523 
$22 


($32),¥Y 


$22 
$9368 
$42 
$3F 
$41 
$9312 
#504 


($32),¥Y 


Set buffer pointer & get jobcode 
Is a job onhand? 

NO-Go to next buffer 

All buffers already checked? 
Get buffer number of last job 
Set buffer pointer 

Save # of track to be controlled 
as target track 

Compute # of half-track steps 
Set drive status flag for 
"Stepper on/Motor on' 

Get and save track of 

job 

Steer track 

Compare number of chosen drive 
with current drive number 
Identical? 

Test number of current track 
Is pointer set? 

YES—Get current track and compare 
with maximum tracks +1 (36) 
Save result 

Compare job track with maximum 
tracks + 1 

Result in bit 7 

Previous bit in carry 

Isolate last test result 

Is current track on side 2? 
YES-Is new track on side 1? 
YES—Compute number of current 
track on side 1 and 

save it 

Continue working with track # 
Is new track on side 2? 
YES-Calculate current track 
number on side 2; 

save it 

Figure out difference 

between new track 

and current track 

Head already set to desired trak? 
Save # of steps to be moved 
Get number of current buffer 
and save it 

Work on next job 

No function [Error--see 7.1.5] 
Get number of track 
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and save it 

Compare with maximum track # +1 
and save result 

Go to corresponding side 

Repeat track 

Track on side 2? 

YES—Compute absolute track of 
that side and save it 

Calculate bitrate of track range 
and set it 

Get drive control register 
Re-set bits for record rate 

and set into 

control register 

Determine # of sectors per track, 
and store 

Get command bits of jobcode and 
test for 'Bump' 

Should head be set to track 0? 
NO-Check for 'Run program! 
Should buffer program be started? 
NO—-Test for 'Format' 

Should diskette be formatted? 
NO—Read sector header 

Format diskette 


jobloop 


Get number of current buffer 
and 

calculate physical 

buffer address 

Set .low-byte to 
start-of-buffer 

Run program 


936C 85 40 STA $40 
936E C9 24 CMP #5$24 
9370 A8 TAY 

9371 20 F3 93 JSR $93F3 
9374 98 TYA 

9375 90 02 BCC $9379 
9377 E9 23 SBC #$23 
93791 aA TAX 

937A BD 08 94 LDA $9408,xX 
937D 85 43 STA $43 
937F AD 00 1C LDA $1C00 
9382 29 OF AND #S9F 
9384 05 43 ORA $43 
9386 8D 00 1C STA $1C00 
9389 BD 2B 94 LDA $942B, xX 
938C 85 43 STA $43 
938E AS 45 LDA $45 
9390 C9 40 CMP #$40 
9392 FO 1C BEQ $93BO0 
9394 c9 60 CMP #S$60 
9396 FO OA BEQ $93A2 
9398 C9 70 CMP #$70 
939A FO 03 BEQ $939F 
939C 4C 4F 94 JMP $944F 
939F! 4c 29 9B MP $9B29 
[92E0/9396] cf. F36E 

Put program in buffer into 
93A2 A5 3F LDA $3F 
93A4 18 CLC 

93A5 69 03 ADC #S$03 
93A7 85 31 STA $31 
93A9 A9 00 LDA #S00 
93AB 85 30 STA $30 
93AD 6C 30 00 JMP ($0030) 
Set head back to track 0 ('Bump') 
93B01 ag 60 LDA #$60 
93B2 85 20 STA $20 
93B4 AD 00 1C LDA $1C00 
93B7 29 FC AND #SFC 
93B9 8D 00 1C STA $1C00 
93BC AQ A4 LDA #SA4 
93BE 85 4A STA S4A 
93CO AD Bi O01 LDA $01B1 
93C3 30 03 BMI $93C8 
93C5 A9X 01 LDA #$01 


[cf. F37C] 
Set drive status flag for 
‘Stepper on/Motor on' 
Get control register 
and clear stepper control 
bits 
set number of tracks (-36) 
the head is capable of moving 
Get flag for current disk side 
Is side 1 chosen? 
YES-Set first track number (1) 
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93C7 2c -byte $2C Jump to next 2 bytes(bit command) 
93c8! ag 24 LDA #$24 Save first track of side 2 (36) 
93CA 85 22 STA $22 as track number 

93CC AS Ol LDA #$01 Give ‘OK! 

93CE 4C B5 99 #£=.\VJMP $99B5 return message 


[930D/94D3/9527/BFOF/93D3:9318] cf. F393 
Set buffer pointer and get jobcode of buffer 


93D1 A4 3F LDY $3F Current buffer number 

93D3 B9 00 00 LDA $0000,Y Get matching jobcode and 
93D6 48 PHA save it | 

93D7 10 14 BPL $93ED Is there a command onhand? 
93D9 29 78 AND #$78 YES—Isolate bits 3-6 and save 
93DB 85 45 STA $45 as significant command bits 
93DD 98 TYA Get buffer number and 

93DE OA ASL A double it 

93DF 69 06 ADC #S06 Set pointer to table of 

93E1 85 32 STA $32 track and sector assignments 
93E3 A9 00 LDA #$00 to the job 

93E5 85 33 STA $33 ($0006-$0011) 

93E7 98 TYA | Get buffer number; 

93E8 18 CLC compute physical 

93E9 69 03 ADC #$03 memory address 

93EB 85 31 STA $31 from that 

93ED! ao 00 LDY #$00 Put address into 

93EF 84 30 STY $30 pointers $30/$31 

93F1 68 PLA Repeat jobcode 

93F2 60 RTS Return from this subroutine 
[895C/9371/9B41) 

Activate read/write head on current diskette side 

93F3 BO 03 BCS $93F8 Is side 2 chosen? 

93F5 A9 00 LDA #S$00 NO—Control buts for side 1 
93F7 2C -byte $2C Jump to next 2 bytes 

93F8 A9 84 LDA #$84 Control bits/side 2 (%10000100) 
93FA 8D Bl O01 STA $01B1 Save bits 

93FD AD OF 18 LDA $180F Get control register A 

9400 29 FB AND #SFB and re-set 

9402 OD Bl Ol ORA $01B1 bits 

9405 8D OF 18 STA $180F Write value into control register 
9408 60 RTS Return from this subroutine 
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[937A] Control bits for recoding rate of every track 


Bit 6 Bit 5 Track range recording rate 


0 0 31 ~- 35 31250 Bytes/sec 
0 1 25 - 30 33333 Bytes/sec 
1 0 18 - 24 35714 Bytes/sec 
1 1 1-17 38461 Bytes/sec 
9409 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 
9419 60 40 40 40 40 40 40 40 20 20 20 20 20 20 00 00 


9429 00 00 OO 

{[A82C/A8C2] Number of 
942C 15 15 15 15 15 15 
943C 15 13 13 13 13 13 
944C 1111 11 


Commodore format 
15 i515 
£2. 11. 


sectors per track in 
LS 15. 15°15 15.15: 25 
13 13 12 12 12 12 12 


[939C/97F6] 

Look for a sector header 

944F AQ SA LDA #S5A Determine number of 

9451 85 4B STA $4B read attempts (90) 

94531 20 54 97 JSR $9754 Wait for next sync-marking 

94561 2c OF 18 BIT $180F Test 'Byte Ready' signal 

9459 30 FB BMI $9456 Is next byte ready? 

945B AD 01 1C LDA $1C01 YES—read GCR-byte from diskette 
945E c9 52 CMP #$52 Compare with 'Header' identifier 
9460 DO 3E BNE $94A0 Is it a sector header? 

9462 99 24 00 STA $0024,Y YES—Byte in header buffer 

9465 C8 INY Set buffer pointer to next byte 
94662 2c OF 18 BIT $180F Test 'Byte Ready' signal 

9469 30 FB BMI $9466 Is next byte ready? 

946B AD 01 1c LDA $1C01 YES—Read GCR-byte from diskette 
946E 99 24 00 STA $0024,Y Byte in header buffer 

9471 C8 INY Set buffer pointer to next byte 
9472 CO 08 CPY #S$08 Number of header bytes 

9474 DO FO BNE $9466 entire header read? 

9476 20 2F 95 JSR $952F YES-Blockheader / GCR to binary 
9479 AO 04 LDY #$04 Number of relevant header bytes 
947B A9 00 LDA #$00 Compute checksum of bytes: 

947D1 59 16 00 + EOR $0016,Y Compute header byte 

9480 88 DEY Pointer to next byte 

9481 10FA BPL $947D All bytes figured out? 

9483 C9 00 CMP #500 Compare with 'Correct' value 
9485 DO 30 BNE $94B7 Error-free checksum? 

9487 AS 18 LDA $18 YES-Set track number from header 
9489 85 22 STA $22 as current track number 

948B A5 45 LDA $45 Get jobcode command bits & check 
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94 


99 


CMP 
BEQ 
LDA 
CMP 
BNE 
LDA 
CMP 
BNE 
JMP 
DEC 
BNE 
LDA 
JSR 
LDA 
STA 
LDA 
STA 
LDA 


#$30 
S94A9 
$12 
$16 
$94B4 
$13 
$17 
$94B4 
$94BC 
S4B 
$9453 
#$02 
$99B5 
$16 
$12 
$17 
$13 
#$01 


ebyte $2C 


LDA 


#S0B 


-byte $2C 


LDA 
JMP 


#$09 
$99B5 


1571 Internals 


code for 'Look for sector' 
Should sectorheader be sought? 
NO—Compare ID from sectorheader 
with current ID | 
Identical? 

Test next ID 

character 

Run into a disk exchange? 

NO-Get next job 

Number of read attempts 

Still need to do search? 
NO—'Header Not Found! 
Output error message 
Take current ID 

from header (lst character) 

Take current ID 

from header (2nd character) 
Number for ‘Ok’ message 

Jump to next 2 bytes (bit command) 
'ID Mismatch’ error number 

Jump to next 2 bytes (bit command) 
"Read Error (27)' error number — 
Give return message 


error # 


[949D] 


cf. F423 
Get next job (Sector optimizing) 


Optimum is a state of > 6 (read) or 9-12 sectors (write) 


94BC 
94BE 
94C0 
94C2 
94C3 
94C5 
9407 
9409 
94cBl 
94CD 
94CF 
94D1 
94D32 
94D6 
94D8 
94DA 
94DC 
94DE 
94E0 
94E2 


A9 
85 
A5 
18 
69 


TF 
4C 
19 


02 
43 
02 
43 
4D 
05 
3F 
FF 
Dl 
43 
O01 
3E 
3D 
00 
32 
40 


93 


LDA 
STA 
LDA 
CLC 
ADC 
CMP 
BCC 
SBC 
STA 
LDX 
STX 
LDX 
JSR 
BPL 
AND 
CMP 
BNE 
LDY 
LDA 
CMP 


#S7F 
S4C 
$19 


#$02 
$43 
$94CB 
$43 
$4D 
#$05 
$3F 
#SFF 
$93D1 
$951B 
#$01 
$3E 
$951B 
#$00 


($32),% 


$40 


Initialize pointer for difference 
to next job 

Compare sector number 

from blockheader 

with maximum 

sector number 

Is number in allowable range? 
NO—Remove max. number and 

save new sector number 

Set buffer 5 

as current buffer 

Buffer pointer value 

Set buffer pointer & get jobcode 
Is a jobcode onhand? : 
YES—Determine corresponding drive 
and compare with current drive 
Identical? 

YES-Pntr to params from buffer0 
Get job track for buffer 0 | 
Compare with last track 
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$951B 
$45 
#560 
$94F8 
#501 


($32),Y 


S4D 
S9O4F8 


$43 
$4C 
$951B 


$45 
$9516 


#$09 
$951B 
#S0C 
$951B 
$4C 
$3F 


#$03 
$31 
$951B 


#506 
$950A 
$3F 
$94D3 


$9525 
S99CA 


1571 Internals 


Identical? 

YES—Get command bits of jobcode & 
test for 'Execute program' code 
Identical? 

NO—Pntr to params from bufferO 
Get sector number of job for 

for buffer 1 

Test for optimal sectors computed 
Is new sector number smaller? 
NO-—Calculate number of sectors up 
to this sector and compare 

with last difference 

Is new value smaller or greater? 
YES-Save sector difference 

Check command bits of jobcode 
Should sector be read? 

NO-Get difference again and 
compare with 9 

Is value smaller? 

NO-—Compare with 13 

Is difference less than 13? 
YES—-Save new sector difference 
Get number of current 

buffer and 

from it compute 

the appropriate physical 

memory address 

Jump to $951B 

Repeat sector difference & 
compare with 6 

Is difference less? 

NO-—Turn pointer to next buffer 
All buffers tested? 

YES—Buffer number of next job 
Optimal job found? 

execute stepper commands 

Save number of current buffer 

Set buffer pointer & get jobcode 
Determine command bits of jobcode 
Execute read/write jobs 
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[9476] cf. F497 
Convert sector header from GCR to binary 


952F AS 30 LDA $30 Retain low-byte of current buffer 
9531 48 PHA pointer 

9532 A5 31 LDA $31 Retain hi-byte of current buffer 

9534 48 PHA pointer 

9535 AX 24 LDA #$24 Set buffer pointers $30/531 

9537 85 30 STA $30 to start of buffer 

9539 A9X O00 LDA #$00 for the current 

953B 85 31 STA $31 sector header s 

953D A9 00 LDA #$00 . Reset buffer 

953F 85 34 STA $34 pointer 

9541 20 D9 98 JSR $98D9 Convrt 5 GCRbytes >4 binary bytes 
9544 A5 55 LDA $55 Get first converted byte and save 
9546 85 18 STA $18 as track number of header 

9548 AS 54 LDA $54 Get second converted byte & save 

954A 85 19 STA $19 as sector number 

954C AS 53 LDA $53 Get third converted byte and set 

954E 85 1A STA S1A as header checksum 

9550 20 D9 98 JSR $98D9 Convrt 5 GCRbytes >4 binary bytes 
9553 AS5 52 LDA $52 Set first converted byte 

9555 85 17 STA $17 as second ID character 

9557 AS 53 LDA $53 Set second converted byte as 

9559 85 16 STA $16 first ID character 

955B 68 PLA Get original values of 

955C 85 31 STA $31 buffer pointers $30/$31 

Q955E 68 PLA and 

955F 85 30 STA $30 set 

9561 60 RTS Return from this subroutine 

9562 FF ... Unused 

OSFF ... FF ROM area 
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[960D/98A6]) cf. F50A 

Look for data sector and set head to start-of-data 

9600 20 OF 97 JSR $970F Look for sector header 

9603 4c 54 97 JMP $9754 Wait for next Sync-marking 
[952C] cf. F4CA 

Read Commodore sectors when jobcode = $80 (command bits $00) 

9606 C9 00 CMP #$00 Test for 'Read sector' jobcode 
9608 FO 03 BEQ $960D Identical? 

960A 4C 6E 97 JMP $976E NO-Continue jobcode test 
[92D9/9608] 

Read sector 

960D 20 00 96 JSR $9600 Look for data block 

96101 2c OF 18 BIT $180F Wait for 'Byte ready’ 

9613 30 FB BMI $9610 signal 

9615 AD 01 1C LDA $1C01 Read byte from diskette 

9618 AA TAX and save it 

9619 BD OD AO LDA SAOOD,X Get binary equivalent and 

961C 85 52 STA $52 save it 

961E 8A TXA Repeat original byte and 

961F 29 07 AND #$07 expand first GCR part 

9621 85 53 STA $53 Save byte 

96231 2c OF 18 BIT $180F wait for 'Byte ready’ 

9626 30 FB BMI $9623 signal 

9628 AD 01 1C LDA $1C01 Read byte from diskette 

962B 85 54 STA $54 and save it 

962D 29 CO AND #SCO Get last 2 bits of 2nd GCR-byte 
962F 05 53 ORA $53 and add in first 3 bits 

9631 AA TAX (lst part:bits0-2;2ndprt:bits6-7) 
9632 BD OD 9F LDA $9FOD,X Get binary equivalent, OR with 
9635 05 52 ORA $52 previous half-byte of 1st byte 
9637 48 PHA Save byte as data blok identifier 
9638 4C 67 96 JMP $9667 Read data part 

[963E/96D4] 

Read GCR-bytes from diskette and put into buffer as binary bytes 
963B 2C OF 18 BIT $180F Wait for 'Byte ready' 

963E 30 FB BMI $963B signal 

9640 AD 01 1c LDA $1C01 Read byte from diskette and 
9643 AA TAX save it 

9644 BD OD AO LDA SAOOD,X Determine binary equivalent and 
9647 85 52 STA $52 store away temporarily 

9649 8A TXA Repeat original data byte spread 
964A 29 07 AND #$07 out first GCR-byte 

964C 85 53 STA $53 Save part of 2nd GCR-byte 
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aE 


964E+ 2c 
9651 30 
9653 AD 
9656 85 
9658 29 
965A 05 
965C AA 
965D BD 
9660 05 
9662 91 
9664 C8 
9665 FO 
96672 AS 
9669 AA 
966A BD 
966D 85 
966F 8A 
9670 29 
9672 85 
96741 2c 
9677 30 
9679 AD 
967C 85 
967E 29 
9680 05 
9682 AA 
9683 BD 
9686 05 
9688 91 
968A C8 
968B AS 
968D 29 
968F 85 
96911 2c 
9694 30 
9696 AD 
9699 85 
969B 29 
969D 05 
969F AA 
96A0 BD 
96A3 85 
96A5 AS 
96A7 AA 
96A8 BD 


oF 


Al 


18 


1c 


OF 


18 


1c 


oF 


A2 


$180F 
$964E 
$1001 
$54 
#$CO 
$53 


SOFOD,X 
$52 
($30),Y 


$96D7 
$54 


$A10D,X 
$52 


#501 
$54 
$180F 
$9674 
$1C01 
$55 
#SFO 
$54 


SOFOF,X 
$52 
($30),¥Y 


$55 
#50F 
$55 
$180F 
$9691 
$1C01 
$3A 
#$80 
$55 


SOF1D,X 
$52 
$3A 


SA20D,X 


Wait for 'Byte ready' 

signal 

Read byte from diskette 

and save it 

Get last part of 2nd GCR byte 
and combine with lst part 
(lstpart:bits 0-2;2ndprt:bits6-7) 
Get corresponding half-byte & 
combine previous half-byte 

Write binary byte to buffer 

turn buffer pointer to next byte 
Reached end-of-buffer? 

NO-—Get next GCR-byte & determine 
upper half-byte of 

equivalent binary byte; 

save it 

Repeat original GCR-byte and form 
first part of next GCR-bytes; 
save it 

Wait for 'Byte ready' 

signal 

Read byte from diskette 

and save it 

Determine 2nd part of GCR-byte 
and connect with lst part 

(lst part:bit0O; 2nd part:bits4-7) 
Get corresponding half-byte and 
form next binary byte 

Write byte into buffer 

Turn buffer pointer to next byte 
Setup first part of 

next GCR-byte and 

save it 

Wait for 'Byte ready' 

signal 

Read byte from diskette 

and save it 

Set second part of GCR-byte and 
combine with first part 

(lst part:bits 0-3;2nd part:bit7) 
Determine & temporarily store lst 
half-byte of next binary value 
Repeat original GCR-value and 
get second half-byte 

of equivalent binary byte 
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96AB 05 52 ORA $52 
96AD 91 30 STA ($30),Y 
O96AF C8 INY 

96B0 8A TXA 

96B1 29 03 AND #$03 
96B3 85 3A STA $3A 
96B51 2c OF 18 BIT $180F 
96B8 30 FB BMI $96B5 
96BA AD 011C LDA $1C01 
96BD 85 53 STA $53 
96BF 29 EO AND #$E0 
96C1 05 3A ORA $3A 
96C3 AA TAX 

96C4 BD 2A 9F LDA S$9F2A,X 
96C7 85 52 STA $52 
96C9 AS 53 LDA $53 
96CB AA TAX 

96CC BD OD A3_ LDA $A30D,X 
96CF 05 52 ORA $52 
96D1 91 30 STA ($30),Y 
96D3 C8 INY 


[9665] 

End of buffer reached 

96D7 AS 54 LDA $54 
96D9 AA TAX 

96DA BD OD Al LDA $A10D,X 
96DD 85 52 STA $52 
96DF 8A TXA 

96E0 29 O01 AND #$01 
96E2 85 54 STA $54 
96E41 2c OF 18 BIT $180F 
S96E7 30 FB BMI S$96E4 
96E9 AD 01 1C LDA $1C01 
96EC 29 FO AND #SFO 
96EE 05 54 ORA $54 
96FO AA TAX 

96F1 BD OF 9F LDA S9FOF,X 
96F4 05 52 ORA $52 
96F6 85 53 STA $53 
96F8 68 PLA 

96F9 C5 47 CMP $47 
96FB DO OA BNE $9707 
96FD 20 EY FS JSR SF5E9 
9700 c¢5 53 CMP $53 


1571 Internals 


Add in first part and write byte 
to buffer 

Turn buffer pointer to next byte 
Set up first part 

of next GCR-byte 

and save it 

Wait for 'Byte ready' 

signal 

read byte from diskette and 
store away temporarily 

Isolat 2nd part of GCR-byte, 

and combine with lst part 
(lstpart:bits 0-1;2ndprt:bits5-7) 
Determine and save first binary 
half-byte 

Repeat originalGCR-value and 

get second part of 

binary byte 

Include first half-byte 

Write byte to buffer 

Set buffer pointer >next position 
Next 5 GCRbytes in 4 binary bytes 


Get last GCR-byte and determine 
first half-byte of 

next binary byte 

Save it 

Repeat original GCR-value and 
isolate first part of next GCR- 
byte 

Wait for 'Byte ready' 

signal 

Read byte from diskette 

and get second part of GCR-byte 
Combine with first part 

(lst part:bit O;2nd part:bits4-7) 
Determine 2nd part of binary byte 
and form final binary byte 

Save value as checksum 

Repeat data block identifier and 
test it 

Is identifier correct? 
YES—Compute buffer checksum 

Test against checksum to be given 
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Is a read error taking place? 
YES-Error # for 'Read Error (23)' 
Jump to next 2 bytes (bit command) 
Error # for 'Read Error (22)' 
Jump to next 2 bytes (bit command) 
Value for 'Ok' message 

Give return message 


9702 FO 06 BEQ $970A 
9704 AQ 05 LDA #$05 
9706 2C sbyte $2C 
97071 a9 04 LDA #$04 
9709 2C -byte $2C 
970A a9 01 LDA #801 
970C 4C B5 99 JMP $99B5 
[9600/9789/98CE] cf. F510 
Look for sector header 
970F AS 12 LDA $12 
9711 85 16 STA $16 
9713 AS 13 LDA $13 
9715 85 17 STA $17 
9717 AO 00 LDY #$00 
9719 Bl 32 LDA ($32),Y 
971B 85 18 STA $18 
971D C8 INY 

971E Bl 32 LDA ($32),Y 
9720 85 19 STA $19 
9722 A9 00 LDA #$00 
9724 45 16 EOR $16 
9726 45 17 EOR $17 
9728 45 18 EOR $18 
972A 45 19 EOR $19 
972C 85 1A STA S1A 
972E 20 34 F9 JSR $F934 
9731 A9 5A LDA #$5A 
9733 85 4B STA $4B 
97351 20 54 97. JSR $9754 
97381 B9 24 00 LDA $0024,Y 
97381 2c OF 18 BIT $180F 
973E 30 FB BMI $973B 
9740 CD 011C CMP $1C01 
9743 DO 06 BNE $974B 
9745 C8 INY 

9746 CO 08 CPY #$08 
9748 DO EE BNE $9738 
974A 60 RTS 

974B! C6 4B DEC $4B 
974D DO E6 BNE $9735 
974F AQ 02 LDA #$02 
9751 4C B5 99 JMP $99B5 


Write current ID (lst character) 
in buffer for Sector header 
Write current ID (2nd character) 
in buffer for sector header 
Re-set buffer pointer 

Get track of current job and take 
in Header buffer 

Buffer pointer to next byte 
take number of current sector 
in header 

Compute checksum: 

ID 1 

ID 2 

Track number 

Sector number 

Checksum in header buffer 
Convert header into GCR-values 
Set number of read 

attempts (90) 

Wait for next Sync-marking 

Get byte from header buffer 
Wait for 'Byte ready' 

signal 

Compare with byte on diskette 
Identical? 

YES—Compare next byte 

Number of bytes to a header 
Entire header compared? 
YES-Return from this subroutine 
Try again 

Number of read attempts ended? 
YES—Error # for 'Read Error (21)' 
Give return message 
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[9453/9603/9735/9CDD/9D08/BF21] 


Wait for next Sync-marking 


cf. F556 





9754 A2 OF LDX #SOF Set attempt counter 

9756 AO 00 LDY #$00 (ca. 47 / 23 ms) 

9758 2C 00 1C BIT $1C00 Test 'Sync' signal 

975B 10 OB BPL $9768 Is Sync set? 

975D 88 DEY NO—Decrement counter 

975E DO F8 BNE $9758 Counter already running 

9760 CA DEX Decrement counter 

9761 DO F5 BNE $9758 256 cycles passed? 

9763 A9 03 LDA #$03 Error number for 'synec not found! 
9765 4C B5 99 JMP $99B5 Give return message 

9768 AD 01 ic LDA $1C01 Initialize 'Byte ready' (CA1) 
976B AO 00 LDY #S$00 Clear register 

976D 60 RTS Return from this subroutine 
[960A] cf. F56E 

Write sector, when jobcode =$90 (command bit $10) 

976E C9 10 CMP #$10 Test for 'Write' jobcode 
9770 FO 03 BEQ $9775 Should sector be written? 
9772 4C 98 98 JMP $9898 NO-—Continue jobcode test 


Write sector 


97751 20 FO F5 JSR S$F5E9 Compute buffer checksum and 
9778 85 3A STA $3A save it 

977A AD 00 1c LDA $1C00 Get drive control register and 
977D 29 10 AND #$10 test 'Write Protect! bit 

977F DO O05 BNE $9786 Is write-protect set? 

9781 A9 08 LDA #S$08 YES—'Write protect on' error # 
9783 4C B5 99 JMP $99B5 Set return message 

97861 20 8F F7 JSR SF78F Convert buffer contents to GCR 
9789 20 OF 97 JSR $970F Look for blockheader 

978C AO 09 LDY #$09 Gap bytes until data block 
978E2 2C OF 18 BIT $180F wait for 'Byte ready’ 

9791 30 FB BMI $978E signal 

9793 2C 00 1C BIT $1C00 Get head ready again 

9796 88 DEY Another byte 

9797 DO F5 BNE $978E Gap already jumped over? 

9799 AQ FF LDA #SFF YES-Set head register for 

979B 8D 03 1¢C STA $1C03 output 

979E AD 0C 1C LDA $1C0C Get control register and 

97A1 29 1F AND #S1F place head circuitry 

97A3 09 CO ORA #SCO0O in write mode 

97A5 8D 0c 1C STA $1C0C (CB2 to low) 

97A8 AQ FF LDA #SFF Sync-marking value 

S97TAA AO 05 LDY #$05 Number of Sync-bytes 
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a 


Write byte to diskette 

Wait for 'Byte Ready’ 

signal 

Re-set 'Byte Ready' 

Next Sync-byte 

Entire marking already written? 
YES-Buffer pointr to status bufer 
Get byte from buffer 

wait for 'Byte ready' 

signal 

Write GCR-byte to diskette 

Turn pointer to next byte 

Entire status buffer on diskette? 
YES-—Get byte from current buffer 
wait for 'Byte ready' 

signal 

Write GCR-byte to diskette 

Set buffer pointer to next byte 
Entire buffer written? 

Wait for 'Byte ready' 

signal, until byte is written 
Switch head electronics 

to read mode 

(CB2 to high) 

Set head register 

to input 

Convert buffer from GCR to binary 
Number of current buffer | 
Get jobcode and convert 

into 'Test sector’ 

Set new jobcode 

Look for sector header 


Convert current buffer &status buffer ($01BB-$1FF) from GCR to binary 


97AC 8D 01 1C_ STA $1C01 
97AF2 2c OF 18 BIT $180F 
97B2 30 FB BMI $97AF 
97B4 2C 00 1C BIT $1C00 
97B7 88 DEY 

97B8 DO F5 BNE $97AF 
97BA AO BB LDY #$BB 
97BCc! B9 00 01 LDA $0100,Y 
o7BF! 2c OF 18 BIT $180F 
97C2 30 FB BMI $97BF 
97C4 8D 011C STA $1C01 
97C7 C8 INY 

97C8 DO F2 BNE $97BC 
97cA! Bl 30 LDA ($30),Y 
97ccl 2c OF 18 BIT $180F 
97CF 30 FB BMI $97CC 
97D1 8D 01 1C STA $1C01 
97D4 C8 INY 

97D5 DO F3 BNE $97CA 
97D7+ 2c OF 18 BIT $180F 
97DA 30 FB BMI $97D7 
97DC ADOC 1C LDA $1C0C 
97DF 09 EO ORA #SE0 
97E1 8D 0C 1c. STA $1C0C 
97F4 AQ 00 LDA #$00 
97E6 8D 03 1C_ STA $1C03 
97E9 20 F9 97. JSR $97F9 
97EC A4 3F LDY $3F 
97EE B9 00 00 LDA $0000,Y 
97F1 49 30 EOR #$30 
97F3 99 00 00 STA $0000,Y 
97F6 4C 4F 94 JMP $944F 
[97E9/99BE] cf. F5F2 

97F9 AQ 00 LDA #$00 
97FB 85 2E STA $2E 
97FD 85 30 STA $30 
Q7FF 85 4F STA $4F 
9801 A5 31 LDA $31 
9803 85 4E STA S$4E 
9805 AQ 01 LDA #$01 
9807 85 31 STA $31 
9809 85 2F STA $2F 
980B AQ BB LDA #$BB 
980D 85 34 STA $34 


Initialize lo-byte of pointer for 
current data buffer and 

status buffer 

Hold momentary value of pointer 
for current data buffer in 

in S4E/S4F 

Turn buffer pointer to 

status buffer 

(high-byte) 

Turn buffer pointr/conver routine 
to start of status buffer ($1BB) 
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D9 


D9 


98 


98 


98 


$36 
$98D9 
$52 

$38 

$36 

$53 
($S2E) ,Y 


$54 
(S2E),Y 


$55 
(S2E),Y 


$36 
$98D9 
$36 

$52 
($2E),¥ 


$53 
($2E),Y 
$984A 
$54 
($2E),Y 


$55 
($2E),Y 


$36 
$982B 
$54 
($30),¥ 


$55 
($30),Y 


$36 
$98D9 
$36 

$52 
($30),Y 


$53 
($30),¥ 
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Set pointer to current byte pos 
Convert 5 GCR to 4 binary bytes 
Get identifier of data block 
and save it 

Get buffer pointer-next bin byte 
Get data byte and write 

to buffer 

Set buffer pointer to next byte 
Get data byte and 

write to buffer 

Set buffer pointer to next byte 
Get data byte and 

write to buffer 

Set buffer pointer to next byte 
Save buffer pointer 

Convert 5 GCR-bytes-4 bin bytes 
Repeat buffer pointer 

Get data byte and write 

to buffer 

Set buffer pointer to next byte 
Get databyte and 

write to buffer 

End of status buffer reached? 
NO-—Get databyte and 

write to buffer 

set buffer pointer to next byte 
Get databyte and 

write to buffer 

Set buffer pointer to next byte 
Save buffer pointer 

Reached end of status buffer? 
YES—Get converted binary byte and 
write to data buffer 

Set buffer pointer to next byte 
Get converted binary byte and 
write to data buffer 

Set buffer pointer to next byte 
Save buffer pointer 

Conver 5 GCR-Bytes-4 bin bytes 
Get buffer pointer again 

Get converted binary byte and 
write to data buffer 

Set buffer pointer to next byte 
Get converted binary byte and 
write to data buffer 

Set buffer pointer to next byte 
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A ST I ST TT OS TE A 


9865 AS 54 LDA $54 Get converted binary byte and 
9867 91 30 STA ($30),Y write to data buffer 

9869 C8 INY Set buffer pointer to next byte 
986A A5 55 LDA $55 Get converted binary byte and 
986C 91 30 STA ($30),Y write to data buffer 

986E C8 INY Set buffer pointer to next byte 
986F 84 36 STY $36 Save buffer pointer and 

9871 CO BB CPY #SBB Compare with end value 

9873 90 El BCC $9856 End of data buffer reached? 

9875 A9 45 LDA #$45 YES-Set pointer to 

9877 85 2E STA $2E target address of 

9879 A5 31 LDA $31 the following shift 

987B 85 2F STA $2F action 

987D AO BA LDY #SBA Shift bytes in data buffer from 
987F1 B1 30 LDA ($30),Y $01-$BB to position $46-$SFF in 
9881 91 2E STA ($2E),Y buffer above 

9883 88 DEY buffer pointer to next byte 

9884 DO F9 BNE $987F All characters already shifted? 
9886 Bl 30 LDA ($30),Y YES-Copy byte $00 to 

9888 91 2E STA (S2E),Y position $45 

988A A2 BB LDX #SBB Pointer to start of status buffer 
98scl BD 00 01 LDA $0100,X Get byte from status buffer 

988F 91 30 STA ($30),Y and copy into data buffer 

9891 C8 INY turn buffer pointer for Data- and 
9892 E8 INX | status buffer to next byte 

9893 DO F7 BNE $988C Entire buffer copied? 

9895 86 50 STX $50 YES-Clr flag fr'buffer in GCR' (0) 
9897 60 RTS Return from this subroutine 
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SSS ST ee cenneneen 


Sector verify, when jobcode 


[9772] cf. F691 
9898 C9 20 
989A FO 02 
989C DO 30 


CMP 
BEO 
BNE 


#520 
$989 
$98CE 


SAO (Command bit $20) 


Test for jobcode:'Sector verify' 
Should sector be verified? 
N—Jump to S$98CE 


Sector verify 


9g9nt 
98Al 
98A3 
98A6 
98A9 
98ABL 
9garl 
98B1 
98B3 
98B6 
98B8 
98B9 
o8BBl 
9sBpl 
98C0 
98C2 
98C5 
98C7 
98C8 
O8CA 
98CC 
oscel 
9gp11 


20 
85 


E9 F5 
3A 
8F F7 
00 96 
BB 
00 O01 
OF 18 
FB 
01 1¢C 
LC 


FO 
30 
OF 18 
FB 
01 1C 
OD 


FD 
EF 
03 
OF 97 
O01 


07 
BS 99 


LDA 


#SBB 


$0100,Y 


$180F 
S9O8AE 
$1C01 
$98D4 


$98AB 


($30),Y 


$180F 
$98BD 
$1C¢01 
$98D4 


#SFD 
$98BB 
$98D1 
$970F 
#$01 


-byte $2C 


LDA 
JMP 


#507 
$99B5 


Compute buffer checksum 

and save it 

Convert buffer from binary to GCR 
Look for sector header 

Turn pointer to status buffer 
Get byte from buffer 

Wait for 'byte ready' 

signal and compare 

with byte from diskette 
Identical? 

YES-—Buffer pointer to next byte 
Entire status buffer compared? 
byte from data buffer 

wait for 'byte ready' 

signal 

Compare with byte from diskette 
Identical? 

YES-Buffer pointer to next byte 
Compare pointer with end value 
Reached end of data buffer? 
YES—Jump to $98D1 

Look for next sector header 
Number for 'Ok' message 

Jump to next 2 bytes 

Set 'Verify Error' error number 
Send return message 


[9541/9550/9811/982B/9856/9979/9993/BF30] 


cf. F7E6 


Convert 5 GCR-bytes into 4 binary bytes 


98D9 
98DB 
98DD 
98DF 
98E1 
98E3 
98E4 
98E6 
98E8 
98EA 


A4 
Bl 
85 
29 
85 
C8 
DO 
AS 
85 
A4 


34 
30 
56 
07 
57 


06 
4E 
31 
4F 


LDY 
LDA 
STA 
AND 
STA 
INY 
BNE 
LDA 
STA 
LDY 


$34 


($30) ,Y 


$56 
#507 
$57 


$98EC 
S4E 
$31 
S4F 


Get pointer to next GCR-byte 

Get GCR-byte from buffer and 

save as first GCR value 

Save lst part of 2nd 

GCR value 

Pointer to next GCR-byte 

Reached end of status buffer? 
YES~-set pointer to beginning of 
current data buffer 

Set pointer to position in buffer 
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9gEc! B1 30 LDA ($30),Y Get GCR-byte from buffer 

98EE 85 58 STA $58 ? and save it 

98FO 29 CO AND #$CO Get 2nd part of 2nd GCR value; 
98F2 05 57 ORA $57 combine with first part 

98F4 85 57 STA $57 Save second GCR value 

O8F6 AS 58 LDA $58 Get original GCR-byte again and 
98F8 29 O1 AND #S$01 get lst part of 3rd GCR value 
98FA 85 59 STA $59 Save value 

98FC C8 INY Set buffer pointer to next byte 
98FD Bi 30 LDA ($30),Y Get byte from buffer 

O8FF AA TAX and save it 

9900 29 FO AND #SF0O Find 2nd part of 3rd GCR value; 
9902 05 59 ORA $59 combine with first part 

9904 85 59 STA $59 Save entire byte 

9906 8A TXA Get original GCR-byte again, and 
9907 29 OF AND #SOF save lst part of 

9909 85 5A STA S5A 4th GCR value 

990B C8 INY Turn buffer pointer to next byte 
990C Bil 30 LDA ($30),Y Get byte from buffer and 

990E 85 5B STA $5B save it 

9910 29 80 AND #$80 get 2nd part of 4th GCR value and 
9912 05 SA ORA S5A combine with previous first part 
9914 85 5A STA SSA Save entire value 

9916 AS 5B LDA $5B - Get original GCR-byte again and 
9918 29 03 AND #$03 | isolate lst part of 5th GCR 

991A 85 5C STA $5C value | 

991C C8 INY Set pointer to next byte 

991D DO 08 BNE $9927 Reached end of status buffer? 
991F A5 4E LDA $4E YES—Turn pointer to current 

9921 85 31 STA $31 data buffer 

9923 A4 4F LDY $4F Set pointer in position in 

9925 84 30 STY $30 buffer 

99271 Bi 30 LDA ($30),Y ~ Get byte from buffer and 

9929 85 5D STA $5D save it 

992B 29 EO AND #SEO Get 2nd part of 5th GCR value and 
992D 05 5C ORA $5C combine with first part 

992F 85 SC STA $5C Save entire GCR value 

9931 C8 INY Buffer pointer to next character 
9932 84 34 STY $34 and save it 

9934 A6 56 LDX $56 Get 1st GCR value-find equivalent 
9936 BD OD AO LDA SAOOD,X most significant binary half-byte 
9939 A6 57 LDX $57 Get second GCR value and form 
993B 1D 0D 9F ORA S$9FOD,X least signifcant binary half-byte 
993E 85 52 STA $52 Save first converted binary byte 
9940 Aé6 58 LDX $58 Get 3rd GCR value,find equivalent 
9942 BD OD Al LDA $A10D,X most significant binary half-byte 
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9945 A6 59 LDX $59 Get fourth GCR alue and form 

9947 1D OF 9F ORA S9FOF,X least significant bin. half-byte 
994A 85 53 STA $53 Save second converted binary byte 
994C A6 SA LDX $5A Get 5th GCR value,find equivalent 
994E BD 1D 9F LDA $9F1D,X most significant binary half-byte 
9951 A6 5B LDX $5B Get sixth GCR value and form 

9953 1D OD A2 ORA SA20D,X least significant half-byte 

9956 85 54 STA $54 Save third converted binary byte 
9958 A6 5C LDX $5C Get 7th GCR value,find equivalent 
995A BD 2A OF LDA S$9F2A,X most significant binary half-byte 
995D A6 5D LDX $5D Get eighth GCR value and form 
995F 1D OD A3 ORA $A30D,X least significant bin. half-byte 
9962 85 55 STA $55 Save last converted binary byte 
9964 60 RTS Return from this subroutine 


{(BF27/Routine not used in DOS] cf. F8EO 
Convert status buffer from GR to binary 


9965 AQ 00 LDA #$00 Pointer to current GCR-byte 

9967 85 34 STA $34 set back 

9969 85 2E STA $2E Clear pointer to target buffer 
996B 85 36 STA $36 Pointer to current data position 
996D A9 Ol LDA #$01 Turn temp. storage for address 
996F 85 4E STA S4E of current data buffer 

9971 A9 BA LDA #SBA to beginning of 

9973 85 4F STA S$4F status buffer 

9975 AS 31 LDA $31 Set buffer pointer to value of 
9977 85 2F STA S2F current data buffer 

9979 20 D9 98 JSR $98D9 Convert 5 GCRbytes to 4 bin.bytes 
997C AS5 52 LDA $52 Get first binary byte & take as 
997E 85 38 STA $38 identifier of data blocks 

9980 A4 36 LDY $36 Pointer to current byte 

9982 A5 53 LDA $53 Get second converted byte and 
9984 91 2E STA (S$2E),Y write in buffer 

9986 C8 INY Buffer pointer to next byte 

9987 A5 54 LDA $54 Get third converted byte and 
9989 91 2E STA ($2E),Y write to buffer 

998B C8 INY Buffer pointer to next byte 

998C A5 55 LDA $55 Get last converted byte and 

998E 91 2E STA (S$2E),Y write to buffer 

9990 C8 INY Buffer pointer to next byte 
99911 84 36 STY $36 and save it 

9993 20 D9 98 JSR $98D9 Convert 5 GCRbytes to 4 bin.bytes 
9996 A4 36 LDY $36 Repeat buffer pointer 

9998 A5 52 LDA $52 Get lst converted byte and write 
999A 91 2E STA ($2E),Y to buffer 

999C C8 INY Buffer pointer to next byte 


ROM -76 





Abacus Software 1571 Internals 
999D FO 11 BEQ $99BO0 Reached end of buffer? 

999F A5 53 LDA $53 N-—Get 2nd converted binary byte 
99A1 91 2E STA (S$2E),Y and write to buffer 

99A3 C8 INY Set buffer pointer to next byte 
99A4 A5 54 LDA $54 Get third converted byte and 
99A6 91 2E STA (S$2E),Y write to buffer 

99A8 C8 INY Buffer pointer to next byte 

99A9 AS 55 LDA $55 Get 3rd converted byte and write 
99AB 91 2E STA ($2E),Y to buffer 

99AD C8 INY Buffer pointer to next byte 

99AE DO El BNE $9991 Reached end of buffer? 

99R0! a5 2F LDA $2F YES—Reestablish pointer to 

99B2 85 31 STA $31 current data buffer 

99B4 60 RTS Return from this subroutine 


[92EB/93CE/94A6/94B9/970C/9751/9765/9783/9806/904E/9D60/BF15] cf. 


F969 


Give return message over job loop 


99B5 
99B7 
99BA 
99BC 
99BE 
99c11 


A4 
99 


9A 


3F 
00 00 
50 
03 
F9 97 
8F FY 
49 


LDY 
STA 
LDA 
BEQ 
JSR 
JSR 


$3F 


$0000,Y 


$50 

$99C1 
SO7F9 
SF98F 


Number of current buffer 

Write return message to job reg. 
Flag for 'buffer in GCR-Code' 

Is the buffer still in GCR ? 
YES—Convert buffer, GCR to binary 
Drive motor off 

Redirect 

stack pointer 

1571 job loop 


[92D2/92F8/9302/9329/9522/9B55/9B64/9D41/9D56/BF72] 
Part of jobloop for motor- and stepper control 


99CA 
99CD 
99D0 
99D3 
99D5 
99D7 
99D9 
99DB 
99DE 
99F0 
99R21 
99R4 
99R7 
OOFA 
99EC 
99RE 


AD 


07 1C 
05 1c 
00 1c 
10 
1E 
1E 
07 
AB 02 
10 
1C 
FF 
AB 02 
64 87 
01 
1¢ 
OE 


LDA 
STA 
LDA 
AND 
CMP 
STA 
BNE 
LDA 
BNE 
BEQ 
LDA 
STA 
JSR 
LDA 
STA 
BNE 


$1C07 
$1005 
$1000 
#$10 
S1E 
S1E 
$99E2 
SO2AB 
$99F0 
S9OOFE 
#SFF 
SO2AB 
$8764 
#$01 
$1c 
S9OOFE 


Timer 1 (high-byte) 

re-set 

Get drive control register 

and test for ‘Write Protect’ 
Compare with last test 

and save current status 

Has 'Write Protect’ been changed? 
N—Motor runtime counter 

Is motor on? 

N—Jump to S$99FE 

Set counter for motor runtime in 
disk exchange 


Motor off 
Set 'Newly initialize diskette’ 
flag 


Jump to S$99FE 
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99F0! cE 
99F3 DO 
99F5 AS 
99F7 C9 
99F9 DO 
99FB 20 
99FR4 AD 
9A01 FO 
9103 C9 
9A05 DO 
9A07 AQ 
9A09 8D 
9A0C FO 
9AOF! g5 
9A10 AQ 
9A12. 8D 
9415 4c 
9A182 AG 
9A1A 30 
9A1C AS 
9A1E A8 
QAIF CQ 
9A21 DO 
9A232 4C 
9n261 cé 
9A28 DO 
9A2A 98 
9A2B 10 
9A2D 29 
Q9A2F 85 
9A311! 29 
9A33 FO 
9A35 Cé 
9A37 DO 
9439 20 
9A3C AQ 
9A3E 85 
9A40 AQ 
9A42 85 
9144 FO 
90463 98 
9447 29 
9A49 DO 
9A4B 4C 
9A4E! AS 
9A50 DO 


AB 02 
09 
20 
00 
03 
70 87 
FE 02 
15 
02 
07 
00 
FE 02 
OA 
4A 
02 
FE 02 
56 9A 
3E 
07 
20 


20 
03 
C9 9A 
48 
1c 


04 
71F 
20 
10 
11 
35 
OD 
70 87 
FF 
3E 
00 
20 
DD 


40 
03 
C9 9A 
62 
50 


SO2AB 
S9O9OFE 
$20 
#$00 
SOOPFE 
$8770 
SO2FE 
$9A18 
#$02 
S9A0E 
#$00 
SO2FE 
$9A18 
S4A 
#$02 
SO2FE 
$9A56 
$3E 
$9A23 
$20 


#$20 
$9A26 
S9AC9 
$48 
$S9A46 


$9A31 
#$7F 
$20 
#$10 
$9A46 
$35 
$9A46 
$8770 
#SFF 
$3E 
#500 
$20 
$9A23 


#$40 
S9OA4E 
S9AC9 
$62 
$9AA2 


Decrement counter f/motor runtime 
Motor now off? 

YES—Get drive status 

Compare with 'motor out! 
Identical? 

YES—Drive motor off 

Read error control byte for head 
Should head be set to next track? 
N-—Test with 'control byte taken' 
Is head evenly set? 

Clear control byte 

register 

Jump to $9A18 

Set # of steps to be performed 
Set 'Control byte taken' 
flag 

Re-position head 

Flag for 'drive aktiv' 
Is flag set? 

N-—Get drive status 

and save it 

Compare with 'Motor on' 
Is drive ready? 
YES—Return from this subroutine 
Motor delay counter 

Is motor out of turn mode? 
YES-—Get drive status 

Flag for 'Motor not ready' 
YES—Clear 

flag 

Flag for 'Motor in off phase' 
Should motor be turned off? 
Jobloop calls yet to be performed 
Jobloop called again? 

N—Drive motor off 

Clear ‘drive active' 

flag 

Re-set 

drive status 

Jump to $9A23 

Repeat drive status 

Test 'Stepper in operation’ flag 
Is head moving? 

N—Return from this subroutine 
Flag for current stepper phase 

Is head in position? 


flag 


set? 
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9A52 AS 4A LDA 
9A54 FO 43 BEQ 
[9A15] 

Head control routine 
9A56 AS 4A LDA 
9A58 10 59 BPL 
9A5A 98 TYA 
9A5B 48 PHA 
9A5C AO 63 LDY 
9ASE/ AD OF 18 LDA 
9A61 6A ROR 
9A62 08 PHP 
9A63 AD OF 18 LDA 
OA66 6A ROR 
9A67 6A ROR 
9A68 28 PLP 
9A69 29 80 AND 
9A6B 90 04 BCC 
9A6D 10 1D BPL 
9AG6F 30 02 BMI 
9a711 30 19 BMI 


S4A 
$9A99 


1571 Internals 





N—-Number of steps to be moved 
Counter set? 


YES—Get number of half-steps_ 
Should head be moved out? 
YES—Get drive status and 

retain it 

Number of probe attempts (99) 
Get ctrl reg. A & set status of 
track 0 write-protect in carry 
Save carry 

Read control reg. again and 
re-test write-protect notch 

Set result in bit 7 

Get previous result 

Establish last result 

Is track 0 active in first test? 
N-Is it at track 0 now? 
YES—Jump to $9A73 

Is track 0 still active? 


Track 0 write-protect notch status remains unchanged 


90731 88 DEY 
9474 DO ES BNE 
9A76 BO 14 BCS 
9A78 AS 7B LDA 
9A7A DO 10 BNE 
9A7C AD 00 1C LDA 
9ATF 29 03 AND 
9A81 DO 09 BNE 
9A83 68 PLA 
9A84 As TAY 
9485 AQ 00 LDA 
9A87 85 4A STA 


S9A5E 
S$ 9A8C 
$7B 

$9A8C 
$1c00 
#$03 
$9A8C 


YES-—Try again 

All attempts been performed? 
YES-Was track O set? 
YES-—Current head control byte set 
by an error? 

N-Get drive control register and 
get stepper bits 

Is a stepper reel active? 
N-repeat drive status 

and save it 

Clear counter 

for steps to be travelled 

End 


Track 0 write-protect notch status has been changed 


9A8C- 68 PLA 
9A8D AS TAY 
OA8E E6 4A INC 
9A90 AD 00 1C LDA 
9A93 38 SEC 
9A94 E9 01 SBC 


9A96 4C BB 9A JMP 


S4A 
$1C00 


#501 
S9ABB 


repeat drive status and save 
it 

Counter one step out 

Get control register and 

set stepper bits for 

one step 


outward 
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SS SSS Say SSS sy a 


9nggl 
9A9B 
9A9D 
OAQF 
9aa21 
OAA4 
OAAG 
OAA8 


C9 9A 


Set delay counter to two 
more IRQs 

Stepper flag to 'Rest phase! 
Return from this subroutine 
Delay for head resting time 
Head ready? 

YES—Get drive status and 
clear 'Stepper on’ 

flag 

Set stepper flag 

back 

Return from this subroutine 


[9A58] One half-track step in 


9AB3 


C6 
AD 


4A 
00 1C 


DEC S4A 
LDA $1C00 
CLC 

ADC #501 


Step counter 1 step in 
Get control register 
and set stepper bits 
for one half-track step 


[9A96] Set stepper control 


9ABB 
S9ABD 
S9ABF 


29 
85 
AD 


03 
4B 
00 1c 


AND #$03 
STA $4B 
LDA $1C00 
AND #SFC 
ORA $4B 
STA $1C00 


inward 

Save value 

Get control register 

and combine new 

value of 

stepper bits 

Return from this subroutine 


{[9B6C] Format track 


9B89 
9B8B 
9B8D 
9B901 
9B93 
9B94 
9B96 
9B98 
9B9A 
9B9C 
9BOF 
9BA11 
9BA3 
9BA5 
OBAG 
9BA8 
OBAA 


AS 
10 


3B 
03 
DC 9A 
26 06 


03 
33 
00 
32 
28 06 
00 
39 
32 


00 
32 


LDA $3B 

BPL $9B90 
JSR $9ADC 
LDA $0626 
CLC 

LDA #$03 
STA $33 

LDA #$00 
STA $32 

STA $0628 
LDY #500 
LDA $39 

STA ($32),Y 
INY 

LDA #$00 
STA ($32),Y 
INY 


Get command number and test flags 
Should track capacty be computed? 
YES—Determine track capacity 
[Error -- see 7.1.5] 

[Unnecessary operation] 

Set pointers $32/$33 

to beginning 

of 


data buffer 0 


Set first sector number (0) 
Re-set buffer pointer 

Write sector header identifier 
in buffer 

Set buffer pointer to next byte 
Write empty byte for checksum 
in buffer 

Set buffer pointer to next byte 
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9BAB 
OBAE 
9BBO 
9BB1 
9BB3 
9BB5 
OBB6 
9BB8 
OBBA 
9BBB 
9BBD 
OBBF 
9BCO 
9BC2 
9BC4 
9BC5 
9BC7 
9BC8 
9BC9 
OBCA 
~ 9BCC 
OBCE 
9Bp01 
9BD1 
9BD3 
9BD5 
9BD7 
9BD8 
OBDA 
9BDC 
9BDD 
OBDE 
OBE1 
OBE4 
OBE6 
9BE8 
OBEA 
OBEC 
OBEF 
9BF11 
OBF3 
OBF5 
OBF7 
OBF9 
OBFB 
OBFD 


28 06 
32 


51 
32 


13 
32 


12 
32 


OF 
32 


32 


07 
00 
3A 


32 
3A 
3A 


F6 


32 


28 06 
28 06 
43 
B9 
03 
cE 
30 FE 
BA 
32 
45 
32 
32 
00 
32 


LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
STA 
INY 
TYA 
PHA 
LDX 
LDA 
STA 
DEY 
LDA 
EOR 
STA 
DEX 
BNE 
STA 
PLA 
TAY 
INC 
LDA 
CMP 
BCC 
LDA 
STA 
JSR 
LDY 
LDA 
LDX 
STX 
STA 
LDX 
STX 
DEY 


$0628 
($32),Y 


$51 
($32),Y 


$13 
($32),Y 


$12 
($32),Y 


#SOF 
($32),Y 


($32),Y 


#$07 
#500 
S3A 


($32),Y 
$3A 
$3A 


$9BDO 
($32),Y 


$0628 
$0628 
$43 
S9BA1 
#$03 
$31 
SFE30 
#SBA 
($32),Y 
#$45 
$32 
($32),Y 
#500 
$32 


Get sector number and 

write in buffer 

Set buffer pointer to next byte 
Write current track number 

in buffer 

Set buffer pointer to next byte 
Get second ID character and 
write in buffer 

Set buffer pointer to next byte 
Get first ID character and 
write in buffer 

Set buffer pointer to next byte 
Write empty byte value 

in buffer 

Set buffer pointer to next byte 
Write to buffer 

Set buffer pointer to next byte 
Get buffer pointer 

and recover it 

Number of bytes to be included 
Clear 

checksum 

Set buffer pointer to prev byte 
Get byte from header buffer and 
compute in checksum 

Save value 

One more byte 

Entire header been included? 
YES—-write checksum in header 
Reset current buffer 

pointer 

Go to next sector 

Compare current sector number 
with maximumr number 

Is sector number allowed? 
NO-Initialize buffer pointer for 
buffer $0300 

Convert block header to GCR-bytes 
Turn buff pointer to status buff 
Get byte from status buffer 

Set pointer to second buffer 
range 

Write GCRbyte in higher buff.area 
Re-set pointer to 

beginning 

Set buffer pointer to next byte 
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OBFE 
9C00 
9C02 
9c041 
9C07 
9C09 
9COA 
9C0C 
9COD 
9COF 
9011 
9013 
9C15 
9c161 
9C18 
9019 
9C1B 
OC1E 
9C20 
9023 
9025 
9C27 
9029 
9c2cl 
9C2E2 
9C31 
9033 
9035 
9038 
9C3B 
9C3C 
9C3E 
9040 
90422 
9045 
9047 
9049 
9C4C 
9C4F 
9050 
9C51 
9053 
90552 
9058 
9C5A 
9C5C 


FF 
EF 
44 
BB 
32 


F8 


03 
02 
31 
00 


30 


FB 
EQ 
3A 
8F 
00 
1B 
06 
63 
05 
OF 
FB 
FF 
01 
00 


FO 
OA 
1B 
OF 
FB 
32 
01 
00 


EF 
09 
OF 
FB 
55 
01 


O01 


FS 


F7 


9D 


18 


1c 


1¢ 


18 


1c 


1c 


18 


1c 


CPY 
BNE 
LDY 
LDA 
STA 
DEY 
BPL 
CLC 
LDA 
ADC 
STA 
LDA 
TAY 
STA 
INY 
BNE 
JSR 
STA 
JSR 
LDA 
STA 
LDX 
JSR 
LDY 
BIT 
BMI 
LDA 
STA 
BIT 
DEY 
BNE 
LDX 
LDY 
BIT 
BMI 
LDA 
STA 
BIT 
INY 
DEX 
BNE 
LDY 
BIT 
BMI 
LDA 
STA 


#SFF 
S9OBF1 
#544 


$O1BB,Y 
($32),Y 


$9C04 


#503 
#$02 
$31 

#500 


($30),Y 


$9C16 
SF5E9 
S3A 
SF78F 
#$00 
$1B 
#506 
$9D63 
#$05 
$180F 
S$9C2E 
#SFF 
$1C01 
$1000 


$9C2E 
#S0A 
$1B 
$180F 
$9C42 


($32),¥ 


$101 
$1000 


$9C42 
#$09 
$180F 
$9c55 
#$55 
$1C01 


Compare with end value 

Copy $300-$344 into $345-$389? 
Buffer pointer to status buffer 
Get byte from status buffer and 
write to data buffer 

Set buffer pointer to next byte 
Entire buffer been transferred? 
YES-Set buffer pointer to 

new buffer 

for 

data block contents 

Fill byte value 

Clear buffer pointer 

Write empty byte in buffer 

Set buffer pointer to next byte 
Entire buffer cleared? 
YES—Compute checksum and 

save it 

Convert buffer into GCR-bytes 
Clear pointer to current position 
in header buffer 

1536 times $55 (%01010101) 

to diskette 

Number of Sync-bytes 

Wait for 'Byte ready' 

signal | 

Write byte for Sync-marking 

to diskette 

Re-set Sync flag 

Next byte 

Entire marking written? 
YES-Number of header bytes 

Get buffer pointer 

Wait for 'Byte ready' 

signal 

Get byte from header buffer 

and write to diskette 

Re-set Sync flag 


- Set buffer pointer to next byte 


Number of header bytes 

Entire header written? 
YES-—Number of gap bytes 

Wait for 'Byte ready' 

signal 

Write empty byte in gap between 
header and data block | 
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OC5F 
9C62 
9C63 
9C65 
9C67 
9c692 
9C6C 
OC6E 
9C71 
9074 
9075 
9077 
90792 
9C7C 
9C7E 
9C81 
9084 
9C87 
9C88 
9cBA2 
9C8D 
OC8F 
9C91 
9094 
9097 
9C98 
9C9A 
9C9C 
9COFr2 
OCA2 
9CA4 
9CA7 
OCAA 
SCAB 
9CAD 
OCAF 
9CBO 
9CB2 
9CB4 
9CB7 
9CB9 
9CBC2 
OCBF 
9CC1 
9cc4t 
9CC7 


00 


FO 
FF 
05 
OF 
FB 
01 
00 


F2 
BB 


1c 


18 


1c 
1c 


18 


O01 
1c 
1c 


18 


1c 
1¢ 


06 
18 


1¢ 
1c 


06 


9C 
18 


1c 
18 


BIT 
DEY 
BNE 
LDA 
LDY 
BIT 
BMI 
STA 
BIT 
DEY 
BNE 
LDY 
BIT 
BMI 
LDA 
STA 
BIT 
INY 
BNE 
BIT 
BMI 
LDA 
STA 
BIT 
INY 
BNE 
LDA 
LDY 
BIT 
BMI 
STA 
BIT 
DEY 
BNE 
LDA 
CLC 
ADC 
STA 
DEC 
BEQ 
JMP 
BIT 
BMI 
BIT 
BIT 
BMI 


$1C00 


$9C55 
#SFF 

#505 

$180F 
$9C69 
$1C01 
$100 


$9C69 
#SBB 


$180F 


$9C79 


$0100,Y 


$1C01 
$1000 


$9C79 


$180F | 


S9C8A 


($30) ,Y 


$101 
$1C00 


S9C8A 
#$55 

$0626 
$180F 
S9COF 


$101 


$1C00 


$9C9F 
$1B 


#S0A 
$1B 
$0628 
S9CBC 
$9C2C 
$180F 
$9CBC 
$1C00 
$180F 
$9CC4 


Control register reset 
Number of gap bytes 
Gap written? 

write Sync-marking for 
start of data block 
Wait for 'Byte ready' 


signal 


Write Sync-byte to diskette 
Initialize input for Syne signal 
Next byte 

Is Sync-marking written? 

YES—-Set buff pntr to status buffr 
Wait for 'Byte ready' 

signal 

Get data byte and 

write to diskette 

Initialize Byte Ready input 

Set buffer pointer to next byte 
Entire status buffer written? 
YES-Wait for 'Byte ready' 

signal until last byte is written 
Get byte from data buffer & write 
to diskette | 
Initialize Sync signal input 

Set buffer pointer to next byte 
Data buffer written to diskette? 
YES-Fillbyte f/gap betwen sectors 
Number of bytes between sectors 
Wait for 'Byte ready’ 

signal 

Write byte to diskette 

Initialize Byte Ready input 

Next byte 

Gap written? 

YES-—Get pointer in header buffer 
and compute number of GCR-bytes 
in header 

Save new pointer 

Decrement number of sectors 

All sectors written? 

NO-Write next sector 

Wait for ‘Byte ready' 

Wait until last byte is written 
Initialize Byte Ready input 

Wait for ‘Byte ready' 

signal 
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9CC9 
9CCC 
OCCF 
9CD1 
9cp41 
OCDE 
9CD8 
OCDA 
9cpp1 
9CEO 
9CE2 
9cr4l 
ocE6l 
OCEQ 
9CEB 
OCEE 
OCFO 
OCF1 
9CF2 
OCF4 
9CF5 
OCF7 
OCFQ9 
9CFB 
OCFE2 
9D01 
9D03 
9D05 
9p08t 
9D0B 
9p0p1 
9p101 
9D13 
9D15 
9D18 
9D1A 
9D1B 
9p1p1 
9piFrl 
9D22 
9D24 
9D27 
9D29 
9D2A 
9D2C 
9D2F 


00 
00 
C8 
23 
00 
1B 
43 
28 
54 
OA 
1B 
32 
OF 
FB 
01 
OE 


FO 


1B 
OA 
1B 
08 
23 
D1 
06 
51 
94 
BB 
00 
OF 
FB 
O01 
E4 


FO 
30 
OF 
FB 
O01 
DS 


Fl 
28 
AC 


1C 
FE 


06 


06 
97 


18 


1C 


9D 
06 


9D 


97 


O01 
18 


1c 


18 


1c 


06 


$1C00 
SFEOO 
#$C8 
$0623 
#$00 
$1B 
$43 
$0628 
$9754 
#S0A 
$1B 


($32) ,¥ 


$180F 
S9OCE6 
$1C01 
SOCFE 


S9CE4 


$1B 
#S0A 
$1B 
$9D08 
$0623 
$9CD4 
#506 
$9D51 
$9754 
#SBB 


$0100,Y 


$180F 
$9D10 
$1001 
S9OCFE 


$9DOD 


($30),Y 


$180F 
$9D1F 
$1C01 
SOCFE 


$9D1D 
$0628 
$9CDD 
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Initialize Byte Ready input 
Switch head for reading 

Determine number of read attempts 
(200) 

Clear buffer pointer to current 
header 

Get # of sectors per track and 
set in counter 

Wait for next Sync-marker 

Number of header bytes 

Get pointer to current header and 
get first header byte 

Wait for 'Byte ready' 

signal 

Compare byte from disk w/header 
Identical? 

YES—Set pointer to next byte 
Number of header bytes 

Entire header checked? 

YES—Turn buffer pointer 

to next 

sector header 

in buffer 

Test data block 

Decrement number of read attempts 
Any tries left? 

NO-—Number for ‘Format error' 

Give return message 

Wait for next Sync-marking 

Turn buffer pntr to status buffer 
get byte from buffer 

Wait for 'Byte ready' 

signal 

Compare buffer with diskette 
Identical? 

YES-Set buffer pnter to next byte 
Entire buffer examined? 

YES-—Get byte from data buffer 
Wait for 'Byte ready' 

signal 

and compare byte with diskette 
Identical? 

YES-Set buffer pntr to next byte 
Entire buffer examined? 

YES—Next sector 

All sectors read? 
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INC 
LDA 
BIT 
BMI 
CMP 


$51 
$51 
$01B1 
$9D3D 
#$24 


-byte $2C 


CMP 
BCS 
JMP 
LDA 
STA 


#547 
$9D44 
$99CA 
#SFF 
$51 
#500 


YES-Set pointer to next track 


Get current format track 

Test flag for diskette side 

Is 2nd side set? 

NO-Test track for maximum track 
Jump next 2 bytes (bit command) 
Compare track with max. track(71) 
Is current track smaller? 
YES—Move stepper to next track 
Clear flag for current 

format track 
Clear flag: 
GCR! 

Number for 'Ok' 
Give return message 


"buffer data in GCR' 


DEC 
BEQ 


end format 


$0620 
$9D59 
$99CA 
#SFF 
$51 


Job loop calls still to be called 
Call stepper loop again? 
YES—Execute stepper commands 
Clear ‘Formatting in process' 
flag 
Clear 
flag 
Give return message 


"Buffer data in GCR-Code'! 


write X times 256 bytes $55 (%01010101) to diskette 


9031 E6 51 
9033 AS 51 
9035 2C Bl 01 
9038 30 03 
9D3A C9 24 
9D3C 2C 

9D3D! C9 47 
9D3F BO 03 
9D41 4C CA 99 
90441 ao FF 
9D46 85 51 
9D48 A9 00 
9D4A 85 50 
9D4c AQ 01 
9D4E 4C BS 99 
[9B70/9D05] 
9D51 CE 20 06 
9054 FO 03 
9056 4C CA 99 
90592 AO FF 
9D5B 84 51 
9D5D C8 

9D5E 84 50 
9D60 4C BS 99 
(8D56/9AE0/9C29] 
9063 AD 0C 1C 
9066 29 1F 
9D68 09 CO 
9D6A 8D OC 1c 
9D6D AQ FF 
9D6F 8D 03 1C 
9D72 AQ 55 
9074 AO 00 
90762 2C OF 18 
9079 30 FB 
9D7B 2C 00 1C 
9D7E 8D Ol ic 
9D81 88 

9D82 DO F2 
9084 CA 

9D85 DO EF 
9D87 60 


LDA 
AND 
ORA 
STA 
LDA 
STA 
LDA 
LDY 
BIT 
BMI 
BIT 
STA 
DEY 
BNE 


$1c0C 
#S1F 
#$CO0 
$1c0C 
#SFF 
$1C03 
#$55 
#$00 
$180F 
$9D76 
$1000 
$1c01 


$9D76 


$9D76 


Get control register 

and set head 

circuitry to 

write mode 

Set head register 

to output 

Empty byte $55 

Initialize counter 

Wait for 'Byte ready' 

signal 

Initialize input for 'Byte ready' 
Write byte to diskette 
Decrement counter 

256 bytes already written 
Decrement block counter 

Write another 256 bytes? 
NO—Return from this subroutine 
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[thru vector. 02A9 from FE67/BF00] 


1541 interrupt routine for bus- and disk controller 


9D88 
9D89 
OD8A 
9D8B 
9D8C 
9D8D 
9D90 
9D92 
9D94 
9D97 
9D99 
9D9C 
9D9F 
9DA1 
9DA3 
ODAG 
9DA8 
ODAB 
9DAD 
9DBO 
9DB3 
9DB5 
9DB7 
9DBAZ 
9DBD 
ODBF 
9DC1 
9pc4l 
9DC7 
9DC8 
9DCA 
9pcp1 
9DCE 
9DD1 
9DD3 
9DD5 
9pp8t 
9DD9 


48 
8A 
48 
98 
48 
AD 
29 
FO 
2C 
30 
AD 
09 
8D 
A9 
8D 
AQ 
8D 
AQ 
8D 


OD 
08 
26 
AF 
21 
OF 
20 
OF 
DE 
AQ 
9D 
AA 
40 
07 
05 
00 
62 
EA 
OD 
02 
03 
53 
OD 


03 
BO 


04 
10 
03 
BO 


40 


02 


18 


18 


02 


02 


1c 


1c 


9D 
18 


E8 
1c 


F2 


01 


F2 


PHA 
TXA 
PHA 
TYA 
PHA 
LDA 
AND 
BEQ 


‘BIT 


BMI 
LDA 
ORA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
LDA 
STA 
JMP 
LDA 
AND 
BEQ 
JSR 
LDA 
ASL 
BPL 
JSR 
TSX 
LDA 
AND 
BEQ 
JSR 
PLA 
TAY 
PLA 


$400D 
#$08 
S9ODBA 
SO2AF 
SODBA 
$180F 
#$20 
$180F 
#SDE 
$02A9 
#$ 9D 
SO2AA 
#$40 
$1007 
$1c05 
#500 
$62 
SODEA 


$180D — 


#$02 
$9DC4 
$E853 
$1C0D 
A 
$9DCD 
SF2BO 


$0104,X 


#510 
S9ODD8 
SF2BO 


Retain accumulator 

Recover 

X-register 

Recover 

Y-register 

Get flag for interrupt through 
serial input/output registers 

Is flag set? 

YES—IROQ mode flag set 

1571 IRQ routine switched in? 
YES-Switch electronics 

to 1571 mode 

(2 mHz) 

Turn interrupt vector 

in $02A9/SO2AA 

to routine 

$99DE 

Timer 1 (high-byte) 

set for about 8 ms 

(2 mHz) 

Set flag for 

stepper phase 

1571 job loop 

Test interrupt flag > 

and isolate CAl input 

Run into ATN? 

YES-Flags:intrrupt frm serial bus 
Get interrupt flag register and 
test flag for Timer 1 

Timer run? 

YES—Go to 1541 controller routine 
Get stack pointer and 

get status from stack 

Check flag for jump through 'BRK' 
Interrupt to be called by 'BRK'? 
YES—execute 154lcontroler routine 
Re-set Y-register for 

output value 

Re-set X-register for 

output value 

Get accumulator again 

Return to break status 
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[Over vector 02A9 from FE67/BF03] 


1541 interrupt routine for bus- and disk controller 


9DDE 
9DDF 
9DEO 
9DE1 
9DE2 
9DE3 
ODE6 
ODES 
9DEAL 
9DEC 
ODEE 
9DFO 
9pF2 
9DF5 
ODF7 
ODF 9 
9DFC 
ODFE 
9r002 
9E01 
9E04 
9E06 
9F08 
9F0Bl 
9EOE 
OOF 
9E11 
9F142 
9F15 
9616 


48 
8A 


OD 
08 
08 
37 
40 
37 
22 
OD 
02 
07 
01 
01 
7¢ 


04 
10 
03 
BA 
OD 


03 
BA 


40 


18 


18 


01 


92 
1c 


92 


PHA 


$400D 
#$08 
SODF2 
$37 
#$40 
$37 
$9B14 
$180D 
#$02 
$9E00 
$1801 
#$01 
$7C 


$0104,X 


#$10 
S9EOB 
S92BA 


~$1C0D 


A 
$9E14 
S92BA 


Save accumulator 

Retain 

X-register 

Retain 

Y-register 

Get flag for interrupt through 
serial i/o registers 

Is flag set? 

Get bus status byte and 
set '1571 bus mode' 

flag 

Jump to $9F14 

test interrupt flags and 
isolate CAl input 

Is ATN found? 

YES-—Set flag back 

Set 'ATN encountered' 
flag 

Get stack pointer and get 
status from stack 

Test ‘Jump to BRK! flag 
Will a 'BRK' interrupt be called? 
YES—Execute 1571 jobloop 
Get interrupt flag register and 
test Timer 1 flag 

Timer running? 
YES—Execute 1571 jobloop 
Re-set Y-register for 
output value 

Re-set Y-register for 
output value 

Get accumulator again 
Return to break status 


unused 
ROM area 
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Tables for converting 5 GCR-bytes into 4 binary bytes 
(SFF means that this GCR value is non-existent) 
[9632/9650/993B/ 9FOF: 9683, 96F1, 9947/9F1D: 96A0, 994E/9F2A: 96C4, 995A] 
Table for GCR values 2, 4, 5 and 7 

9FOD OC 04 O5 FF FF 02 03 FF OF O6 O7 FF O9 OA OB FF 
9F1D OD OE 80 FF OO 00 10 40 FF 20 CO 60 40 AO 50 EO 
O9F2D FF FF FF 02 20 08 30 FF FF OO FO FF 60 01 70 FF 
9F3D FF FF 90 03 AO OC BO FF FF 04 DO FF EO O5 80 FF 
S9F4D 90 FF O08 OC FF OF O09 OD 80 02 FF FF FF O3 FF FF 
S9F5D 00 FF FF OF FF OF FF FF 10 O6 FF FF FF O7 OO 20 
S9F6D AO FF FF 06 FF O9 FF FF CO OA FF FF FF OB FF FF 
S9F7D 40 FF FF O07 FF OD FF FF 50 OE FF FF FF FF 10 30 
9F8D BO FF OO 04 O2 O6 OA OF 80 FF FF FF FF FF FF FF 
9F9D 20 FF 08 09 80 10 CO 50 30 30 FO 70 90 BO DO FF 


[864F/866B/8697/A424/A439/A450/D651/D6D9} 
Call job loop and execute job 


S9FB6 O00 BRK Call job loop 

9FB7 EA NOP Match jump address 

9FB8 BS 00 LDA $00,X Get job register 

S9FBA 30 FC BMI S$9FB8 Is job executing? 

S9FBC 60 RTS YES—Return from this subroutine 


Table for GCR values 2, 4, 5 and 7 (2nd part) 

9FBD 60 FF 01 OB FF FF FF FF 70 FF FF FF FF FF CO FO 
9FCD DO FF 01 05 03 07 OB FF 90 FF FF FF FF FF FF FF 
S9FDD AO FF OC OD FF FF FF FF BO FF FF FF FF FF 40 60 
SFED EO FF 04 OE FF FF FF FF DO FF FF FF FF FF FF FF 
SFFD EO FF 05 FF FF FF FF FF FF FF FF FF FF FF 50 70 
([9619/9644/9936] Table for GCR value 1 

AOOD OC 04 05 FF FF 02 03 FF OF O06 O7 FF O9 OA OB FF 
AO1D OD OE 80 FF 00 00 10 40 FF 20 CO 60 40 AO 50 EO 
AO2D FF FF FF 02 20 08 30 30 30 00 FO FF 60 01 70 FF 
AO3D FF FF 90 03 AO OC BO FF FF 04 DO FF EO O5 80 FF 
AO4D 90 FF 08 OC FF OF 09 OD 80 80 80 80 80 80 80 80 
AOSD 00 00 00 00 00 00 00 00 10 10 10 10 10 10 10 10 
AO6D AO FF FF 06 FF 09 FF FF CO CO CO CO CO CO CO CO 
AO7D 40 40 40 40 40 40 40 40 50 50 50 50 50 50 50 50 
AO8D BO FF 00 04 02.06 OA OE 80 80 80 80 80 80 80 80 
AO9D 20 20 20 20 20 20 20 20 30 30 30 30 30 30 30 30 
AOAD FF FF 00 OA OA OA OA OA FO FO FO FO FO FO FO FO 
AOBD 60 60 60 60 60 60 60 60 70 70 70 70 70 70 70 70 
AOCD DO FF 01 05 03 07 OB FF 90 90 90 90 90 90 90 90 
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AODD AO AO AO AO AO AO AO AO BO BO BO 
AOED EO FF 04 OE FF FF FF FF DO DO DO 
AOFD EO EO EO EO EO EO EO EO 05 05 O05 
([966A/96DA/9942] Table for GCR-value 3 

A10D FF FF FF FF FF FF FF FF FF FF FF 
A1l1D FF FF 80 80 00 00 10 10 FF FF CO 
Al2D FF FF FF FF 20 20 30 30 FF FF FO 
A13D FF FF 90 90 AO AO BO BO FF FF DO 
A1l4D FF FF FF FF FF FF FF FF FF FF FF 
A15D FF FF 80 80 00 00 10 10 FF FF CO 
A16D FF FF FF FF 20 20 30 30 FF FF FO 
A17D FF FF 90 90 AO AO BO BO FF FF DO 
Ail8D FF FF FF FF FF FF FF FF FF FF FF 
A19D FF FF 80 80 00 00 10 10 FF FF CO 
A1AD FF FF FF FF 30 30 FF FF FO 
A1BD FF FF 90 90 BO BO FF FF DO 
A1CD FF FF FF FF 
80 co 
FF FO 
90 DO 
([96A8/9953] Table for GCR value 6 
A20D FF FF FF FF FF FF FF FF FF 
A21D FF FF FF FF FF FF FF FF FF 
A22D FF FF FF 08 08 O08 08 00 O00 
A23D FF FF FF OC OC OC OC 04 04 
A24D FF FF FF FF FF FF FF 02 02 
A25D FF FF FF OF OF OF OF O06 06 
A26D FF FF FF 09 09 09 09 OA OA 
A27D FF FF FF OD OD OD OD OE OE 
A28D FF FF FF FF FF FF FF FF FF 
A29D FF FF FF FF FF FF FF FF FF 
A2AD FF FF FF 08 08 00 00 
A2BD FF FF FF OC Oc 04 04 
FF FF FF FF FF 02 02 


[96CC/995F] Table for GCR value 8 


A30D 
A31D 
A32D 
A33D 
A34D 


FF FF 
FF FF 
FF FF 
FF FF 
FF FF 


FF FF 
02 03 
FF FF 
O02 03 
FF FF 


FF FF 
FF OF 
FF FF 
FF OF 
FF FF 


FF FF 
06 07 
FF FF 
06 QO7 
FF FF 


FF 
FF 
FF 
FF 
FF 


08 
09 
08 
09 
08 
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A35D FF FF 02 03 FF OF 06 07 FF 09 OA OB FF OD OE FF 

A36D FF FF FF FF FF FF FF FF FF 08 00 01 FF OC 04 05 

A37D FF FF 02 03 FF OF O06 O07 FF O9 OA OB FF OD OE FF 

A38D FF FF FF FF FF FF FF FF FF 08 00 01 FF OC 04 05 

A39D FF FF 02 03 FF OF O06 O07 FF O9 OA OB FF OD OE FF 

A3AD FF FF FF FF FF FF FF FF FF 08 00 O01 FF OC 04 05 

A3BD FF FF 02 03 FF OF O06 O7 FF O09 OA OB FF OD OE FF 

A3CD FF FF FF FF FF FF FF FF FF 08 OO 01 FF OC 04 05 

A3DD FF FF 02 03 FF OF O06 O7 FF O9 OA OB FF OD OE FF 

A3ED FF FF FF FF FF FF FF FF FF 08 OO O01 FF OC 04 O05 

A3FD FF FF 02 03 FF OF 06 07 FF O09 OA OB FF OD OE FF 
[A783/A989] 

Format diskette in Commodore 1571 format 

A40D AQ 47 LDA #$47 Number of greatest 

A40F 8D AC 02 STA $O2AC track to be formatted 
A412 AQ 03 LDA #$03 Number of current buffer 
A414 20 D3 D6 JSR $D6D3 Track/sector to job loop 
A417 A2 03 LDX #$03 Go to buffer 3 

A419 A9 00 LDA #$00 Set diskette side flag to 
A41B 8D B2 O01 STA $01B2 side 1 

A41E A9 FO LDA #S$FO Save 'Format' 

A420 85 3B STA $3B jobcode 

A422 95 00 STA $00,X Send to job loop 

A424 20 B6 OF JSR S9OFB6 Execute job (Format) 

A427 C9 02 CMP #S$02 Test for 'Ok' message 
A429 BO 45 BCS $A470 Jobe run error-free? 

A42B AO 03 LDY #503 Number of read attempts (4) 
A42pD+ ag 01 LDA #$01 YES-Send track number (1) 
A42F 85 0C STA SOC to job loop 

A431 A9 00 LDA #$00 Set sector number (0) for 
A433 85 OD STA SOD job loop 

A435 AQ 80 LDA #$80 Jobcode for 'Read sector' 
A437 95 00 STA $00,X to job loop 

A439 20 B6 9F JSR S9FB6 Test-read sector 1,0 

A43C C9 02 CMP #$02 Check for 'OK' message 
A43E 90 05 BCC $A445 Job run without problems? 
A440 88 DEY Next read attempt 

A441 10 EA BPL $A42D Have 4 attempts been made? 
A443 BO 2B BCS S$A470 YES—Jump to $A470 

A4451 a9 o1 LDA #$01 Set diskette side flag 
A447 8D B2 Ol STA $01B2 to side 2 

A44A AQ FO LDA #SFO Set 'Format' 

A44C 85 3B STA $3B jobcode 

A44E 95 00 STA $00,X Give to job loop 

A450 20 B6 OF JSR S9OFB6 Execute job 
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A453 C9 02 CMP #$02 Compare with 'Ok' message 

A455 BO 19 BCS $A470 Job run error-free? 

A457 AO 03 LDY #$03 YES—Set number of read attempts 
A459! ag 24 LDA #$24 Track number (36) 

A45B 85 0C STA SOC to job loop 

A45D AQ 00 LDA #$00 Sector number (0) 

A45F 85 OD STA SOD to job loop 

A461 AQ 80 LDA #$80 Set jobcode for 'Read 

A463 95 00 STA $00,X sector' 

A465 20 B6 9F JSR S$9FB6 test-read sector 36,0 

A468 C9 02 CMP #$02 Check for 'OK' 

A46A BO 0O1 BCS SA46D Is there an error? 

A46C 60 RTS NO—Return from this subroutine 
A46p! 88 DEY Next try 

A46E 10 E9 BPL $A459 Three attempts been made? 
A470> A2 00 LDX #$00 YES-Set flag value:'Error noted’ 
A472 2C 98 02 BIT $0298 in error status flag; 

A475 8E 98 02 STX $0298 set new value 

A478 10 O01 BPL $A47B Should error be acknowledged? 
A47A_ 60 RTS. NO—Return from this subroutine 
A47B: 4c OA E6 JMP SE60A Output error message 


[8294/82A1/885E/BF39] 
45-cycle delay 


A47E 8A TXA Recover X-register 
A47F A2 05  LDX #$05 Set delay value 
A481 DO 03 BNE SA486 Jump to $SA486 


[8181/8187/8298/82A8/8FOA/8F51/903A/9056/A78E/BF33] 
80-cycle delay 


A483 8A TXA Recover X-register 

A484 A2 OD LDX #S0D Set delay value 

a4set CA DEX Decrement counter 

A487 DO FD BNE SA486 End of delay? 

A489 AA ' TAX YES—Re-establish X-register 
A48A 60 RTS Return from this subroutine 


[A4C2/A508/A51E/A54F/A5A7/A678/A962] 
Recover BAM buffer pointer 


A48B 


A5 6D 
8D AD 
AS 6E 
8D AE 
60 


02 


02 


LDA 
STA 


$6D 
SO2AD 
S6E 
SO2AE 


Get low-byte and 
temporarily store 

Get high-byte holen and 
temporarily store 

Return from this subroutine 
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[A4D1/A51B/A531/A58A/A5C2/A6C7/A6E2/A97B] 


Re-establish BAM buffer pointer 


A496 
A499 


AD AD 
85 6D 
AD AE 
85 6E 


02 


02 


LDA 
STA 
LDA 
STA 


SO2AD 
S6D 
SO2AE 
S6E 


Get lo-byte from temp. storage & 
re-set 

Get hi-byte from temp. storage & 
re-set 

Return from this subroutine 


[A851/A887/A8BC/A8F5/A918/A931] 


Set pointer to BAM-pattern of sector (for side 2) 


A4Al 
A4A3 
A4AG 
A4A8 
A4AA 
A4ap1 
A4BO 
A4B3 
A4B6 
A4B8 
A4BA 
A4BD 
A4BF1 
A4c2t 
A4c5 
A4c8 
A4CA 
A4CB 
A4CD 
A4CE 


Aé 7F 
BD FF 
FO 05 
AQ 74 
20 48 
20 19 
20 DF 
AD F9 
FO O07 
09 80 
8D F9 
DO 03 
20 8D 
20 8B 
20 34 
AS 80 


EQ 24 


Bl 6D 


20 96 


00 


E6 
Fl 
FO 
02 


02 
AS 


A4 
A5 


A4 


LDX 
LDA 
BEQ 
LDA 
JSR 
JSR 
JSR 
LDA 
BEQ 
ORA 
STA 
BNE 
JSR 
JSR 
JSR 
LDA 
SEC 
SBC 
TAY 
LDA 


S7F 


SOOFF, X 


SA4AD 
#$74 
SE648 
$F119 
SFODF 
$02F9 
SA4BF 
#$80 
SO2F9 
$A4C2 
SA58D 
SA48B 
$A534 
$80 


#524 


(S6D),Y 


SA4 96 


Number of current drive (0) 

Get drive status 

Is drive ready? 

NO-Give 

'74 drive not ready' error messge 
Determine channel number of BAM 
Read BAM from diskette 
Test 'legal/illegal BAM! 
Is BAM on disk legal? 
YES-Set ‘Write BAM' 

flag 

Jump to SA4C2 

Write BAM to diskette 
Recover BAM buffer pointer 

Set new buffer pointer 

Get number of current track 

and compute track 

from side 1, 

then get correct # of free blocks 
in track from buffer 

Save value 

Re-establish old buffer pointer 
Repeat number of blocks 

Return from this subroutine 


flag 


unused 
ROM area 
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[A854/A88A/A8CF] 

Get BAM bit of a sector (for side 2) 

A4E7 AS 80 LDA $80 Number of desired track 

A4E9 38 SEC Compute physical track 

A4EA E9 24 SBC #$24 number and 

A4EC A8 TAY save it 

A4ED ADS 81 LDA $81 : Get # of desired sector & divide 
A4EF 4A LSR A by 8 (8 bits per byte) 

A4FO 4A LSR A and choose corresponding byte of 
A4F1 4A LSR A three BAM-bytes 

A4F2 18 CLC to position in BAM-pattern 

A4F3 79 DB AS5d ADC SAS5DB, Y Add track position and save 

A4F6 A8 TAY as pointer to BAM-pattern 

A4F7 AS 81 LDA $81 Get number of desired sector and 
A4F9 29 07 AND #$07 state position of BAM-bits in 
A4FB AA TAX byte-pattern 

A4FC B9 46 O1 LDA $0146,Y Get byte-pattern from BAM-buffer 
A4FF 3D E9 EF AND SEFE9, xX and isolate sector bit 

A502 08 PHP Save value 

A503 BO 46 O01 LDA $0146,Y Get entire byte-pattern again and 
A506 28 PLP get previous value from it 

A507 60 RTS Return from this subroutine 
[A862] 

Increment number of blocks to a track in BAM 

A508 20 8B A4 JSR SA48B Recover current BAM-pointer 
A5O0B 20 34 AS JSR $A534 Set pointer to BAM-pattern 

ASOE AS 80 LDA $80 Get number of desired track and 
A510 38 SEC calculate physical track 

A511 E9 24 SBC #524 number (side-1 value) and 

A513 A8 TAY save it; 

A514 18 CLC then 

A515 Bl 6D LDA ($6D),Y et byte for number of blocks per 
A517 69 01 ADC #$01 track and increment 

A519 91 6D STA ($6D),Y by one 

AS1B 4C 96 A4 JMP SA496 Repeat current BAM-pointer 
[A898] 

Decrement number of free blocks to a track in BAM 

A51E 20 8B A4 JSR $SA48B Recover current BAM-pointer 

A521 20 34 AS JSR $A534 BAMpointer to track's Bytepattern 
A524 AS 80 LDA $80 Get number of track desired and 
A526 38 SEC compute physical track number 
A527 E9 24 SBC #$24 (Side-1 value) and 

A529 A8 TAY save it 

A52A 38 SEC Decrement number of 
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A5S2B Bl 6D LDA ($6D),Y 
A52D E9 01 SBC #$01 
A52F 91 6D STA (S$6D),Y 
A531 4C 96 A4 JMP SA496 


[A4C5/A50B/A521/A552/A965] 
Set buffer pointer for 2nd buffer 


1571 Internals 


free track blocks 

in appropriate BAM 
byte 

Re-set old BAM-pointer 


from internal channel 6 


A534 A2 OD LDX #S$0D Channel number for 2nd buffer (6) 
A536 BS AT LDA $A7,X Get and save pre-arranged 

A538 29 OF AND #S0F buffer 

A53A AA TAX . number 

A53B BD EO FE LDA SFEEO,X Get hi-byte of buffer address and 
AS3E 85 6E STA $6E take up in buffer pointer 

A540 A9 DD LDA #SDD Set low-byte for 

A542 85 6D STA S$6D BAM-pointer 

A544 60 RTS Return from this subroutine 
[A8BF/A94E] 

Verify number of blocks free (side 2 BAM) 

A545 AS 6F LDA S6F Recover temporary 

A547 48 PHA storage 

A548 AS 80 LDA $80 Get current track number (side 2) 
AS4A 38 SEC and calculate 

A54B EQS 24 SBC #$24 physical number 

A54D A8 TAY Save 

A54E 48 PHA track number 

A54F 20 8B A4 JSR SA48B Recover current BAM-pointer 

A552 20 34 AS JSR $A534 Set pointer to BAM-pattern 

A555 Bl 6D LDA (S6D),Y Get / save given number of 

A557 48 PHA blocks free 

A558 A9 00 LDA #S$00 Clear temporary storage area for 
A55A 85 6F STA S6F number of blocks free 

A55C AQ Ol LDA #S$01 Set pointer to buffer for 

A55E 85 6E STA S6E back-side 

A560 B9 DB AS LDA S$A5DB,Y Get pos. of BAM-pattern in buffer 
A563 18 CLC and calculate in buffer area 
A564 69 46 ADC #$46 $0146-$01BB 

A566 85 6D STA $6D Set BAM-pointer 

A568 AO 02 LDY #$02 Number of BAM-pattern-bytes -1 
AS6A! A2 07 LDX #$07 Number of bits per byte -1 

as56c! Bl 6D LDA ($6D),Y Get bit-pattern of sectorlayout 
A56E 3D ES EF AND SEFE9, X and isolate one bit of sector 
A571 FO 02 BEQ $A575 Is sector free? 

A573 E6 6F INC S6F YES—Increment # of blocks free 
A575~ CA DEX Test next bit 

A576 10 F4 BPL SA56C Entire byte viewed? 
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A578 88 DEY Include next BAM-byte of track 
A579 10 EF BPL SA56A All blocks of track checked? 
AS7B 68 PLA YES—Get # of BAM blocks given and 
A57C CS 6F CMP S6F compare with new number 

A57E FO 05 BEQ $A585 Block layout correct? 

A580 AQ 71 LDA #$71 NO—Display 

A582 20 45 E6 JSR SE645 '71 Dir Error' message 

a585+ 68 PLA Repeat number track 

A586 A8 TAY being worked on 

A587 68 PLA Re-establish 

A588 85 6F STA S6F temporary storage 

AS8A 4C 96 A4 JMP $SA496 Re-establish BAM-pointer 


[A4BF/EF37/F001/F09C) 
Write 1571/1541 BAM to diskette 


A58D 
A590 
A592 
aso4t 
as972 
A59A 
A59C 
A59E 
ASAO 
A5A3 
A5A4 
ASAT 
A5AA 
ASAD 
A5BO 
A5B2 
A5B3 
A5B4 
ASB6 
A5B8 
ASBaAL 
ASBD 
ASBF 
ASCO 
A5C2 
ASC5 
A5C8 
ASCA 
ASCB 
ASCC 
ASCF 


AD 
29 
DO 


OF 18 
20 
03 
8A D5 
AC 02 
25 
F6 
F9 
5B 02 


8A D5 
8B A4 
3A EF 
08 FO 
F9 


35 
06 
68 
46 01 
6D 


F8 
96 A4 
8A D5 
F9 


85 FE 
06 


LDA 


$180F 
#520 
$A597 
SD58A 
$O2AC 
#525 
$A594 
SF9 


$025B,X 


SD58A 
SA48B 
SEF3A 
SF008 
SF9 

A 


#535 
$06,X 
#568 


$0146,Y 
($6D) ,Y 


SA5BA 
$A496 
SD58A 
SF9 

A 


SFE85 
$06,X 


Get control register and 

get operating mode flag 

Is drive in 1541 mode? 

YES-Write buffer to disk (1541) 
Get highest track # from diskette 
and compare with 35 

Diskette two-sided? 

YES-Get number of current buffer 
Determine and recover 
appropriate jobcode 

Write sector to diskette 

Recover current BAM-pointer 

Read BAM into buffer 

Clear buffer for BAM 

Get number of current buffer and 
double it (pointers use 

2-byte table) 
Give track 18, 
to job loop 
Buffer pointer to end of 1571 BAM 
Get byte from BAM-buffer & write 
in current data buffer 

Turn pointer to next byte 

Entire buffer copied? 
YES—re-establish BAM-pointer 
Write sector to diskette 

Get number of current buffer and 
double it (2-byte values for 
pointer table) 

Give # of directory track(side 1) 
to job loop 


side 2(track 53) 
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A5D1 20 86 D5 JSR $D586 Read sector from diskette 
A5D4 68 PLA Repeat jobcode 

A5D5 A6 FY LDX SF9 Number of current buffer 
A5D7 9D 5B 02 STA $025B,X Write jobcode again in table 
A5DA_ 60 RTS Return from this subroutine 
used in : A4F3/A560] 


Position of BAM-pattern of track in BAM-buffer 

ASDB 00 03 06 09 OC OF 12 15 18 1B 1E 21 24 27 2A 2D 
ASEB 30 33 36 39 3C 3F 42 45 48 4B 4E 51 54 57 SA 5D 
A5FB 60 63 66 

[E7A3] 

Routine for &-command 


A5FE AD OF 18 LDA $180F Get control register and 

A601 29 20 AND #$20 test operating mode 

A603 FO OF BEQ $A614 Is drive in 1571 mode? 

A605 AO OO LDY #$00 YES—[Error -- see 7.1.5] 

A607 A2 00 LDX #$00 {unnecessary initialization] 
A609 AQ 01 LDA #$01 Turn pointer to beginning of 
A60B_ 8D 7A 02 STA $O27A input buffer 

A60E 20 12 C3 JSR $C312 Get drive number 

A611 4C A8 E7 JMP SE7A8 Return to 1541 &-routine 
A614! a9 gD LDA #$8D Look for endsignal (Shift<Return>) 
A616 20 68 C2 JSR $C268 in command string 

A619 4C A8 E7 JMP SE7A8 Return to 1541 &-routine 
[EBFC] 

Execute command from computer 

A61C 20 46 Cl JSR $C146 Execute command string 

A61F 20 B2 81 JSR $81B2 Switch 1571 bus to input 

A622 AS 37 LDA $37 Get bus status byte and clear 
A624 29 7F AND #S7F ‘1571 mode' 

A626 85 37 STA $37 flag 

A628 4C FF EB JMP SEBFF Return to waitloop 

[F997] 

Initialize 'motor out’ counter 

A62B AQ FF LDA #SFF Set counter for the motor 
A62D 85 48 STA $48 runtime 

A62F A9 06 LDA #$06 Number of stepper routine calls 
A631 85 35 STA $35 yet to be done 

A633 60 RTS Return from this subroutine 
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-- wait until turn numbers 


BNE 
LDA 
BNE 
BEQ 
LDA 
STA 
JSR 
LDA 
STA 
BNE 
DEC 
BNE 
LDA 


SA63D 
$O2AB 
SA64B 
$A657 
#SFF 
$02AB 
$8764 
#$01 
$1C 
$A657 
$02AB 
$A657 


Has 'Write Protect' been changed? 
Get high-speed phase counter 
Is motor on turn number? 
YES—Jump to $A657 

Set runtime 

counter 

Motor on 

Set "Diskette initializing' 
flag 

Jump to $A657 

Decrement number of Wait-IRQs 
Is motor on turn number? 
YES-Get drive status 

Motor been on? 

NO-—Motor on 

Return to head control routine 


Initialize I/O registers 


LDA 
STA 


#502 


Set Data output 

to high 

Switch to 1571mode,turn bus:input 
and head to side 1 

Return to Reset routine 


[F9AB] 

Motor on 

A634 DO 07 
A636 AD AB 02 
A639 DO 10 
A63B FO 1A 
A63D- AQ FF 
A63F 8D AB 02 
A642 20 64 87 
A645 AQ O01 
A647 85 1C 
A649 DO OC 
A64B- CE AB 02 
AG64E DO 07 
A650 AS 20 
A652 DO 03 
A654 20 70 87 
A6574 4C Bl F9 
[FF15] 

A65A AQ 02 
A65C 8D 00 18 
A65F AQ 20 
A661 8D 01 18 
A664 4C 18 FF 
[DO5D/F107] 
Read 1571/1541 
A667 AD OF 18 
AG66A 29 20 
A66C DO 03 
AGGE+ 4C 86 D5 
A671 AD AC 02 
A674 C9 25 
A676 90 F6 
A678 20 8B A4 
A67B AQ 00 
A67D 85 6D 
AG7F A6 FO 
A681 BD EO FE 
A684 85 6E 
A686 AQ FF 
A688 8D 98 02 


BAM from diskette 


LDA 


$180F 
#$20 
$A671 
$D586 
$O2AC 
#$25 
SAG66E 
SA48B 
#500 
S6D 
SF9 


SFEEO, X 


S6E 
#SFF 
$0298 


Get control register and test 
operating mode 

Is drive in 1541 mode? 
YES—Read sector 

Get highest track number and 
compare with 35 

2 sides used? 

YES—recover current BAM-pointer 
Turn BAM-pointer to 
start-of-buffer 

Get buffer number and 

get hi-byte of buffer address; 
set in buffer pointer 

Set 'Error from job execution 
not noticed' 
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A68B A5 F9 
A68D 0A 
A68E AA 


A693 20 86 D5 


A69D 8D AF 01 


A6A6 99 46 01 


AGAE 8D 98 02 


A6B3 OA 

A6B4 AA 

A6B5 AD 85 FE 
A6B8 95 06 


A6BA 20 86 D5 


AeC4 8D AC 02 
AeéC7 20 96 A4 


A6CB 20 OA E6 
A6CE 4C 44 D6 


A6DS5 2D AF Ol 


A6D8 30 03 
A6DA AY 24 
A6DC 2c 


LDA 


SF9 


#$35 
$06,X 
$D586 
#$02 
A 
#$80 
#$80 
SO1AF 
SA6AC 
#$68 


(S6D),¥Y 
$0146,Y 


SA6A4 
#SFF 
$0298 
SF9 
A 


SFE85 
$06,X 
$D586 
#502 

SA6D1 


#$24 
SO2AC 
SA496 


SE60A 
$D644 
#503 


(S6D) ,Y 


SO1AF 
SA6DD 
#524 


-byte $2C 


LDA 


#547 


STA $02AC 


JMP 


SA496 


1571 Internals 


Repeat buffer number 

and double it (table uses 2 
parameters) 

Give track 18,side 2 (dir. track) 
to job loop 

Read sector 

Test return message or error 

Save result in bit 7 (1l=error) 
and isolate bit 

Prepare bit for tesing in SA6D5 
and save it(0= error found) 

Is there an error? 

NO—Pointer to end of 1571-BAM 
Read byte from data buffr & write 
byte in 1571 BAM-buffer 

turn pointer to next byte 

All bytes transferred? 

Set ‘Error by job execution not 
notcied' flag 

Get number of current data buffer 
and double it (pointers in 
2-byte-value table) 

Get # of directory track (18) and 
set as track number of job 

Read sector 

Compare return message w/ 'OK! 
Was job run error-free? 

YES—Save return message (0/1) 

Set track 35 as largest track 
(i.e., only one side used) 
Re-establish current BAM-pointer 
Repeat return message 

Output error message 

Job error handling 

Set buffer pointer,get identifier 
for 1571 diskette ($80) 

Check identfier w/preceding error 
Previous read & identifier OK? 
NO—Use track numbering f/one side 
Jump to next 2 bytes(bit command) 
Set track number for 2 diskette 
sides 

Re-establish BAM-bufferpointer 
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Initialize 1571 diskette 
20 8C D5 


AGES 
AGES 
AGE9 
A6EB 
AGED 
A6FO 
AGF2 
AGF4 
AGF6 
AG6F9 
A6FB 
AG6FE 
A700 
A701 
A703 
A704 
A706 
A707 
A708 
A70A 
A70C 
A70E 
A711 
A713 
A714 
A715 
A716 
A717 
A719 
A71B 
A71D 
A71F 
A721 
A723 
A7243 
A726 
A729 
A72B 
A72D 
A72F 
A730 
A731 
A734 
A7362 
A737 


48 


02 
49 
OF 
20 
42 
41 
AC 
FF 
98 
16 


17 


F9 


39 
06 
BO 
8C 
02 


OB 
16 
07 
17 
03 
47 


24 
AC 
17 
16 
FQ 


85 
06 


18 


02 


02 


D5 


02 


FE 


JSR 
PHA 
CMP 
BCS 
LDA 
AND 
BEQ 
LDA 
STA 
LDA 
STA 
LDA 
PHA 
LDA 
PHA 
LDA 
ASL 
TAX 
LDA 
STA 
LDA 
JSR 
CMP 
PLA 
TAY 
PLA 
TAX 
BCS 
CPX 
BNE 
CPY 
BNE 
LDA 


$D58C 


#$02 
$A736 
$180F 
#$20 
$A736 
#547 
$O2AC 
#SFF 
$0298 
$16 


$17 


SA724 
$16 
$A724 
$17 
$A724 
#547 


-byte $2C 


LDA 
STA 
STY 
STX 
LDA 
ASL 
TAX 
LDA 
STA 
PLA 
RTS 


#$24 
$O2AC 
$17 
$16 
SF9 

A 


SPE85 
$06,X 


1571 Internals 


eee 


Give and run jobcode 

Save return message 

Check against 'OK' 

Job run error-free? 

YES-—Get control register and 
determine operating mode 

Is drive in 1571 mode? 

YES-Set max. track number +1 (71) 
Set "Error from job execution 
not noticed' flag 

Recover lst ID character of 
sector header 

Recover 2nd ID character of 

the last sector header 

Get # of current data buffer and 
double it (table uses 
2-byte-values) 

Track 18,side 2(backside direct.) 
to job loop 

Jobcode for 'Look for sector' 

to job loop; execute 

Compare return message with 'OK' 
Repeat last character of 
last-read ID 

Repeat lst character of 
last-read ID 

Did job run error-free? 
YES—Compare last ID with new ID 
Identical? 

YES—Compare w/ last ID char. also 
Identical? 

YES—# of tracks+1l for 2 sides(71) 
Jump to next 2 bytes (bit command) 
Set # of tracks +1 for 1 side(35) 
as max. number of tracks 

Re-set first-read 

ID 

Get # of current data buffer 

& double it (pointers are 
2-byte-values) 

Get # of directory track (18) 

Set as track number of job 

Value for 'Ok' return message 
Return from this subroutine 
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LL 


[F005] 


Clear 
A738 
A73B 
A73E 
A740 
A742 
A744 
A7461 


1571 BAM-buffer 


20 
AD 


3A EF 
OF 18 
20 
OA 
00 
68 
46 O1 


JSR SEF3A 
LDA $180F 
AND #$20 
BEQ SA74C 
LDA #$00 
LDY #$68 


STA $0146,Y 


DEY 
BPL $A746 


Set buffer pointer 

Get control register 

and test operating mode 

Is drive in 1571 mode? 
YES-Value for empty byte 

Set buffer pointer 

Clear byte in BAM-buffer 

Set buffer pointer to next byte 
Entire buffer cleared? 

YES-Set pointer for 1541 BAM 


[F24B] 


Compute absolute 


A74F 
A750 
A753 
A755 
A757 
A758 
A75A 
A75C 


48 
AD 
29 
FO 
68 


OF 18 
20 
08 


24 
04 
23 
68 


track number 


PHA 

LDA $180F 
AND #$20 

BEQ SA75F 
PLA 

CMP #$24 

BCC $A760 
SBC #$23 

-byte $24 
PLA 

LDX S$FED6 
RTS 


Save track number 

Get control register 

and test operating mode 

Is drive in 1571 mode? 

YES-—Get track # again and compare 
with max. number +1 (for side 1) 
Is track on side 2? 

YES—Compute track number on sidel 
Jump to next byte (bit-command) 
Re-adjust stack 

Get number of track zones 

Return from this subroutine 


[EE56] 


Create new BAM 


A764 
A767 
A76A 
A76C 
A76E 


20 
AD 
29 


05 FO 
OF 18 
20 
03 
24 


(1571/1541) 


JSR $FO05 
LDA $180F 
AND #$20 
BNE $A771 
LDA #$24 
-byte $2C 
LDA #$47 
STA $02AC 
JMP SEE43 


Clear BAM-buffer 

Get control register 

and test operaing mode 

Is drive in 1571 mode? 

YES—max. track number +1 (36) 
Jump to next 2 bytes(bit command) 
Determine max. tracks for 2 sides 
(71) 

Produce new BAM 
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[FF42] 

Format Commodore diskette 

A779 AD OF 18 LDA $180F Get control register 

A77C 29 20 AND #520 and test operating mode 

A77E DO 03 BNE $A783 Is drive in 1541 mode? 

A780 4C C6 C8 JMP $C8C6é YES—Format 1541 diskette 
A783 4c OD A4 JMP $A40D Format 1571 diskette 

[EBE4 } 

Initialize CIA 6526 by reset 

A786 AD 01 18 LDA $1801 Get control register 

A789 29 DF AND #SDF and switch to 1541 

A78B 8D 01 18 STA $1801 mode 

A78E 20 83 A4 JSR $A483 approx. 80-cycle delay 

A791 A9 7F LDA #S7F Re-set interrupt 

A793 8D OD 40 STA $400D register 

A796 A9 08 LDA #$08 Set Timer A for ‘one shot’ 
A798 8D OE 40 STA $400E (just one run) 

A79B 8D OF 40 STA $400F Set Timer B for the same mode 
A79E AQ 00 LDA #$00 Clear Timer A 

A7AO0 8D 05 40 STA $4005 high-byte 

A7A3 A9 06 LDA #$06 Set Timer A low-byte for 6 
A7A5 8D 04 40 STA $4004 cycles 

A7A8 A9 01 LDA #$01 Start 

ATAA 8D OE 40 STA $400E Timer A 

ATAD 20 B2 81 JSR $81B2 set 1571 bus for input 

A7BO 4C 59 EA JMP SEAS9 test for ATN command mode 
{[924B/EA68/EC04] 

Take ATN-command from bus 

A7B3 AD OF 18 LDA $180F Get control register 

A7B6 29 20 AND #$20 and test operating mode 

A7B8 FO 03 BEQ SA7BD Is drive in 1571 mode? 

A7BA 4C CE 80 JMP S$80CE YES—Get ATN-command from 1571 bus 
A7BD+ 4c 5B E8 JMP SE85B Get ATN-command from 1541 bus 
[(EB22] 

Patch for Reset-routine 

A7CO 78 SEI Disable bus/controller interrupt 
A7C1 A2 45 LDX #$45 Initialize stack pointer to 
A7C3 9A TXS range $100-$145 

A7C4 4C 25 EB JMP SEB25 Return to Reset routine 
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See 


[ED8F/EE56] 
Create new 1571/1541 


ATC? 
ATCA 
ATCC 
ATCEl 
A7DO 
A7D2 
A7D4 
A7D72 
A7DA 
A7DC 
A7DE 
ATEO 
A7E21 
A7E4 
ATE6 
ATE7 
ATE8 
A7EA 
ATEC 
ATEE 
A7FO 
ATF3 
A7F41 
ATF5 
ATF7 
ATF9 
A7FB 
ATFC 
ATFE 
ATFF 
A800 
A802 
A805 
A807 
A80A 
A80C 
A80F 
A810 
A811 
A812 
A814 
A816 
A817 
A818 


AD 
29 
DO 
AO 
AQ 
91 


OF 18 
20 
09 
03 
00 
6D 
B7 EE 
AC 02 
25 
FO 
O01 
00 
12 
34 


00 
6F 
70 
71 
2B 94 


6F 
70 
71 


F6 


6F 
46 O1 
70 
47 O1 
71 
48 01 


33 
04 


LDA 
AND 


BAM 
$180F 
#$20. 
SA7D7 
#$03 
#$00 


($6D),¥Y 


SEEB7 
SO2AC 
#$25 
SATCE 
#$01 
#$00 
#$12 
SA81A 


#500 
S6F 
$70 
$71 


$942B,Y 


S6F 
$70 
$71 


SATF4 


S6F 


$0146,X 


$70 


$0147,X 


$71 


$0148,X - 


#$33 
SA81A 


Get control register 

and test operating mode 

Is drive in 1541 mode? 

Buffer pointr to disktype IDfier 
Write 1541 diskette identifier 
in BAM 

Produce 1541 BAM 

Get largest track number and 
compare with 37 

Is side 2 used? 

YES—Determine first track number 
Set first sector 

Compare with directory track # 
Directory track already reached? 
NO-—Save current sector 

number 

Clear 

math register for 

bit-pattern of 

available sectors 

Determine and save # of sectors 


‘in track 


Shift 'Sector free! 

flag value in math 

register for 

bit-patterns 

Go to next sector 

All sectors laid out? 

Re-set first sector number and 
re-set buffer pointer 

Get lst byte from bit-pattern and 
write in BAM-buffer 

Get 2nd byte of bit-pattern and 
write in BAM-buffer 


Get third byte of bit-pattern and 


write in BAM-buffer 

Jump 3 bytes of bit-pattern 

with buffer 

pointer 

Test for directory track position 
Track 18 already reached? 

Jump BAM-entry 

from track 18 


with buffer pointer 
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eer van SS 


#$24 
SATE2 
SEEB7 
#$03 
#$80 


(S6D),Y 


#5FF 
#$22 


$942C,X% 
($6D),¥ 


SA82C 
#SEE 
#500 


($6D),Y¥ 


$DO75 


Set pointer for current track to 
track 19 

Compare with end of first side 
Is track less? 

NO-1541 BAM used 

Initialize buffer pointer 

Write 1571 diskette identifier 
in directory sector 

Set buffer pointer 

# of tracks (w/o directory track) 
Write # of free blocks on track 
in BAM-buffer 

Set buffer pointer to next byte 
Pointer to next track entry 

All tracks entered? 

YES—Turn pointr to track 18,side2 
Clear # of free blocks on track 
(for directory track) 

Compute free blocks on diskette 


A819 C8 

A81A2 C8 

A81B CO 24 
A81D 90 C3 
A81F 20 B7 EE 
A822 AO 03 
A824 AQ 80 
A826 91 6D 
A828 AO FF 
A82A A2 22 
As2c: Bp 2c 94 
A82F 91 6D 
A831 88 

A832 CA 

A833 10 F7 
A835 AO EE 
A837 AQ 00 
A839 91 6D 
A83B 4C 75 DO 
[EF5F] 

Free up sector 
A83E AD OF 18 
A841 29 20 
A843 DO 06 
a845+ 20 CF EF 
A848 4C 62 EF 
A84B1 AS 80 
A84D C9 24 
A84F 90 F4 
A851 20 Al A4 
A854 20 E7 A4 
A857 DO 19 
A859 1D E9 EF 
A85C 99 46 01 
A85F 20 88 EF 
A862 20 08 AS 
A865 AS 80 
A867 C9 35 
A869 FO 08 
A86B AS 7F 
A86D OA 

A86E AA 

A86F 4C 7F EF 
A872 38 

A873+ 60 


$A872 


SEFE9,X 
$0146,Y 


SEF88 
$A508 
$80 
#$35 
$A873 
S7F 
A 


SEF7F 


YES-—Get control register 

and test operating mode 

Is Floppy in 1541 mode? 

YES-Set pointr to bit of a sector 
Free up sector 

Get current track number and 
compare with max. value of a side 
Is track number less? 

NO—Pointer to BAM-bit of sector 
Get BAM-bit of sector 

Is sector free? 

YES-Set BAM-bit 

and write in buffer 

Set ‘illegal BAM' flag 

Increment number of blocks free 
Test current track number against 
track 18, side 2 (Directory) 
Identical? 

NO-Get current drive number 

and double it 

(table uses 2-byte values) 
Increment # of blks free on disk 
"Sector already freed up'’errorflg 
Return from this subroutine 
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Set sector in BAM 


OF 18 
20 
06 
CF EF 
96 EF 
80 
24 
F4 
Al A4 
E7 A4 
19 
E9 EF 
46 01 
88 EF 
LE AS 
80 
35 
07 
TF 


$180F 
#$20 
SA881 
SEFCF 
SEF 96 
$80 

#$24 

SA87B 
SA4A1 
SA4E7 
SA8A8 


SEFE9, X 
$0146,Y 


SEF88 
SA51E 
$80 
#$35 
SA8A8 
S7F 


Get control register 

and test operating mode 

Is drive in 1541 mode? 

Set pointer to BAM-bit of sector 
Free up sector in BAM 

Get # of desired track & test 
with max. value +1 for lst side 
Is track on side 2? 

YES-Set BAMpointer to track entry 
Get BAM-bit of sector 

Is sector freed up? 

YES—Lay out sector (Bit = 0) and 
store BAM pattern again 

Set 'Illegal BAM' flag 

Get # of blocks free on track 
Get # of chosen track and test 
against track 18, side 2 
Identical? 

NO-—Get current drive number 

and double it 

(block table needs 2 bytes) 
Decrement number of blocks free 
Return from this subroutine 


[EF93] 

A874 AD 
A877 29 
A879 DO 
A87B+ 20 
A87E 4c 
Agei: as 
A883 C9 
A885 90 
A887 20 
A88A 20 
A88D FO 
A88F 5D 
A892 99 
A895 20 
A898 20 
A89B AS 
A89D C9 
A89F FO 
A8Al AS 
A8A3 OA 
ASA4 AA 
A8A5 4C 
A8A82 60 
[FIFA] 

Look for 
A8A9 AD 
A8AC 29 
A8AE DO 
AgBO! 20 
A8B3 4C 
A8B6: AS 
A8B8 C9 
A8BA 90 
A8BC 20 
A8BF 20 
A8C2. B9 
A8C5 8D 
ascs: as 
A8CA CD 
A8CD BO 


next free sector on track 


OF 18 
20 
06 
11 FO 
FD Fl 
80 
24 


Al A4 
45 AS 
2C 94 
4E 02 


4E 02 


LDA 
AND 
BNE 
JSR 
JMP 
LDA 
CMP 
BCC 
JSR 
JSR 
LDA 
STA 
LDA 
CMP 
BCS 


$180F 
#$20 
SA8B6 


SFO11 


$F1FD 
$80 
#$24 
SA8BO0 
SA4Al1 
$A545 


$942C,Y 


$024E 
$81 

S024E 
SA8D8 


Get control register 

and test operating mode 

Is drive in 1541 mode? 

YES-Set BAM-pointer 

Look for next free sector 

Check # of current track with 
max. track +1 of lst side 

Is track on side 2? 

Set pointer for BAMentry to track 
Check # of blocks free on track 
Get # of sectors per track and 
save it 

Compare number of current sector 
with max. sector number 

Is sector # in allowable range? 
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ne SS 


A8CF 
A8D2 
A8D4 
A8D6 
Asps1 
A8DA1 


20 
DO 
E6 
DO 
AQ 
60 


YES-—Get BAM-bit of sector 
Is sector free? 

NO-—Go to next sector 

Jump to SA8C8 

Flag for 'No free sector' 
Return from this subroutine 


[F12D] Look 


A8DB 
A8DE 
A8E0 
A8E21 
A8E4 
A8E5 
AsEs2 
ASEA 
A8EC 
A8EE 
A8FO 
A8F2 
A8F4 
A8F5 
A8F8 
A8F9 
ASFA 
A8FC 


AD 
29 


E7 A4 JSR 
06 BNE 
81 INC 
FO BNE 
00 LDA 
RTS 

for next 

OF 18 LDA 
20 AND 
06 BNE 
6F LDA 
PHA 

30 Fl JMP 
80 LDA 
24 CMP 
F4 BCC 
35 CMP 
OE BEQ 
6F LDA 
PHA 

Al A4 JSR 
TAY 

PLA 

6F STA 
TYA 

38 Fl JMP 
00 LDA 
38 Fl JMP 


free sector 


$180F 
#$20 
SA8E8 
S6F 


$F130 
$80 
#$24 
SA8E2 
#$35 
$A900 
S6F 


SA4A1 


Get control register 

and determine operating mode 

Is disk in 1541 mode? 

YES—Recover number of free blocks 
per track 

Look for next free sector 

Test current track number against 
max. track +1 of side 1 
Is track on side 2? 
YES-test for track 18, 
Identical? 

Recover 

zeropage area 

Set BAM-pattern pointer 
Save number of free blocks 
Re-establish 

zeropage area 

Get # of blocks free on track 
Get free sector 

Set # of free blocks on track 
Look for next free sector 


side 2 


[F1C4] 


Set BAM pointer to bit on a sector 


A905 
A908 
A90A 
agocl 
AQOF 
a9121 


AD 
29 


OF 18 
20 
06 
11 FO 
C7 Fil 
80 
24 
F4 
Al A4 
C9 Fl 


LDA 


$180F 
#520 
$A912 
SFO11 
SF1C7 
$80 


Get control register 

and determine operating mode 

Is disk in 1541 mode? 

YES—Set BAM-pointer and 

get optimal free sector 

Test current track number against 
max. track +1 of side 1 

Is track on side 2? 

Set BAM-pointer 

Get optimal free sector 
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[F1D1]} 

Look for free sector 

A91E AD OF 18 LDA $180F Get control register 

A921 29 20. AND #520 and determine operating mode 
A923 DO 06 BNE $A92B Is disk in 1541 mode? 

A925! 20 11 FO JSR $FO11 YES-Set BAM-pointer 

A928 4C E2 Fil JMP SF1E2 Look for free sector 

A92B! as 80 LDA $80 Test current track number against 
A92D C9 24 CMP #$24 max. track +1 of side 1 

A92F 90 F4 BCC $A925 Is track on side 2? 

A931 20 Al A4 JSR SA4A1 Set pointer to BAM-bit 

A934 4C E4 Fl JMP SF1E4 Look for free sector 

[EF28} 

Test number of free blocks in BAM 

A937 AD OF 18 LDA $180F Get control register 

A93A 29 20 AND #$20 and determine operating mode 
A93C DO 03 BNE $A941 Is disk in 1541 mode? 

A93E2 4C 20 F2. JMP $F220 YES—Test block assignment 
A941+ aD AC 02. ~=LDA $02AC Get number of largest track; 
A944 C9 25 CMP #$25 compare with 37 

A946 90 F6 BCC $A93E Only one diskette used? 

A948 AS 80 LDA $80 NO-Get current track # and 
A94A C9 24 CMP #$24 compare with 36 

A94C 90 FO BCC SA93E Is track on side 2? 

A94E 4C 45 AS5 JMP $A545 YES—Confirm block assignment 
[D097] 

Compute number of free blocks on diskette 

A951 9D FA 02 STA SO2FA, X Store low-byte of free blocks 
A954 AD OF 18 LDA $180F Get control register 

A957 29 20 AND #$20 and determine operating mode 
A959 FO 23 BEQ SA97E Is disk in 1571 mode? 

A95B AD AC 02 LDA $02AC YES—Determine maximum track # 
A95E C9 25 CMP #$25 & compare w/ maximum track+2 (37) 
A960 90 1C BCC SAQ97E Is track on side 2? 

A962 20 8B A4 JSR SA48B Recover current BAM-pointer 
A965 20 34 AS JSR $A534 Set BAM-pointer to track entry 
A968 AO 22 LDY #$22 Number of tracks on a side -1 
A96A AD FA 02 LDA $O2FA Get low-byte of free block and 
A96D! 18 CLC include byte of free blocks on 
A96E 71 6D ADC ($6D),Y track 

A970 8D FA 02 STA SO2FA Save next block amount 

A973 90 03 BCC $A978 Is a transfer pending? 
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A975 EE FC 02 INC $O2FC YES-Set hi-byte of 'Blocks free' 
a9781 88 DEY Go to next track 

A979 10 F2 BPL SA96D All tracks considered? 

A97B 4C 96 A4 JMP S$A496 YES—Set BAM-pointer to old value 
A97E2 60 RTS | Return from this subroutine 
[DCD6] | 

Patch for number of free blocks; Clear pointer 

A97TF 95 B5 STA $B5,X Clear # of reserved blocks / file 
A981 95 BB STA SBB,X (low- and high-byte) 

A983 A9 00 LDA #$00 : Clear number of data bytes yet to 
A985 9D 44 02 STA $0244,X be transferred | 

A988 60 RTS a Return from this subroutine 
[84E4] 

Format diskette im 1571 format 

A989 20 OD A4 JSR $SA40D Format diskette 

A98C AO OO LDY #$00 "Error noted' 

A98E 8C 98 02 STY $0298 - flag 

A991 60 RTS : Return from this subroutine 

A992 FF... unused 

A99C ... FF | - ROM area 


ws 
am ene ee ow cam om ome ee ee ee ee ee ee ee ee ee oe rw ee ee ee ee ee oe oe ee em ee ee 0 ee em om om owe es ww SO Ow SB SS SSeS SS SO VP ew Ss SS SS Owe ee 


[C1B3] Patch for 1541 routine (Error remedied by FF, xX) 


A99D AQ OO LDA #$00 Set drive status for 
A99F 9D FF 00 STA SOOFF,X ‘Drive ready' 
A9A2 4C B7 Cl JMP $C1B7 Return to 1541 routine 


[C661] Patch for 1541 routine (Error remedied by FF,X) 


A9A5 98 TYA Get return message 

A9A6 9D FF 00 #£STA SOOFF,X . and transfer into drive status 
A9A9 4C 64 C6 JMP $C664 ~- =. Return to 1541 routine 7 
[EA6B] 

Work with serial bus after ATN-command 

A9AC AD OF 18 +#£2®LLDA $180F 7 . Get control register 

AQAF 29 20 AND #$20 - test for operating mode 

A9B1 FO 03 BEQ SA9B6 Is disk in 1571 mode? 

A9B3 4C SA 81 JMP $815A YES—Wait on 1571 bus 

A9B6! 4C D7 ES  JMP SE8D7 _ Process 1541 bus 


oe om om > em of @ © @® ow ow we ew OP © = Oe ee © Ow © @® we Ow @® Ow oe Ow Ow © oe ww 2 oo 2 2 ow oo Oo Oo oe o® oO ow OO Oe ow Ow ow Om Oe ee = ow nr om ore 
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Display error message and prepare text version of message 


FQ 
OF 18 
20 
OF 
37 
OB 
37 
7F 
37 


PHA 
STX 
LDA 
AND 
BEO 
BIT 
BPL 
LDA 
AND 
STA 
PLA 
TAX 
JMP 


SF9 
$180F 
#$20 
SA9D2 
$37 
SA9D2 
$37 
#S7F 
$37 


Recover error number 

Save buffer number 

Get control register 

and test for operating mode 

Is disk in 1571 mode? 

YES—Chk bus statusbyte f£/1571lmode 
Flag set? 

YES-—Clear 1571 mode 

flag in bus status 

byte 

Repeat error number and 

prepare for output 

Produce #, message over 1571 bus 
Prepare text of message 


[E60A] 

A9B9 48 
AOSBA 86 
A9BC AD 
AOBF 29 
A9C1 FO 
A9C3 24 
A9C5 10 
A9C7 AS 
A9C9 29 
A9CB 85 
ASCD 68 
ASCE AA 
AOSCF 4c 
A9D22 4c 
[C1CE] 


Produce error message in error buffer 


A9D5 48 PHA Recover error number 

A9D6 AD OF 18 LDA $180F Get control register 

A9D9 29 20 AND #520 and test for operating mode 
AS9DB FO 17 BEQ SA9F4 Is disk in 1571 mode? 

AS9DD 24 37 BIT $37 YES—Test bus statsbyte f/1571lmode 
ASDF 10 13 BPL SA9F4 Flag set? 

A9E1 AS 37 LDA $37 YES—Clear 1571 mode flag 

A9E3 29 7F AND #S7F in bus status 

ASE5 85 37 STA $37 byte 

A9E7 78 SEI Disable bus/controller interrupt 
A9E8 A2 02 LDX #$02 Send 'File Not Found! error # 
AS9EA 20 28 92 JSR $9228 over 1571 bus 

A9ED A9 00 LDA #$00 Set secondary address 

AQSEF 85 83 STA $83 for Load 

A9F1 20 CO DA JSR SDACO Close file 

AOF42 68 PLA Repeat error number 

AQ9F5 4C 45 E6 JMP S$E645 Produce error message 

[F263] Patch for 1541 routine (new: Clear status) 

ASF8 AQ 00 LDA #$00 Clear status for drive 

ASFA 85 20 STA $20 0 

A9FC AD OC 1C LDA $1C0C Get peripheral control register 
AQOFF 4C 66 F2 JMP SF266 Return to 1541 routine 
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[C2BA/C2C2] 

Observe new UserO command 

AAO2 AD 00 02 LDA $0200 Get lst char from command string 
AAO5S C9 55 CMP #$55 & compare with 'U' (User command) 
AAO7T DO 07 BNE $AA10 Identical? 

AAOS AD O01 02 LDA $0201 YES—Get 2nd char frm cmd string 
AAOC C9 30 CMP #$30 and compare with '‘'O' 

AAOE FO 04 BEQ SAA14 Is command 'U0'? 

AA10/ B9 00 02. ~=LDA $0200,Y NO-Get char from command string 
AA13 2C -byte $2C Jump next 2 bytes (bit command) 
AA141 a9 00 LDA #$00 Give back empty params by User 0 
AA16 60 RTS Return from this subroutine 


[C66B] Patch for 1541 routine (Error remedied by FF, X) 


AA17 A6 7F LDX S7F Current drive number 
AA19 BD FF OO LDA SOOFF,X Get appropriate drive status 
AA1C 60 RTS Return from this subroutine 


[D071] Patch for 1541 routine (Error remedied by FF, X) 


AA1ID 95 1C STA $1C,X Set diskette initialization flag 
AAIF 9D FF OO STA SOOFF,X Set drive status 
AA22 4C 75 DO JMP $D075 Return to 1541 routine 


[F017] Patch for 1541 routine (Error remedied by FF,X) 


AA25 A6 7F LDX S7F Current drive number 

AA27 BD FF OO LDA SOOFF,X Get appropriate drive status 
AA2A! 4c 1B FO JMP SFO1B Return to 1541 routine 

[CB81] 

Execute User-command (UA to UK) 

AA2D AS 75 LDA $75 Get low-byte of User-routine and 
AA2F C9 67 CMP #S$67 test with IRQ 

AA31 DO 09 BNE SAA3C Identical? 

AA33 AS 76 LDA $76 YES-Get high-byte and compare 
AA35 C9 FE CMP #SFE with IRQ address 

AA37 DO 03 BNE SAA3C Identical? 

AA39 00 BRK YES-—Call jobloop 

AA3A EA NOP Cancel out return address 
AA3B- 60 RTS Return from this subroutine 
AA3C2 6C 75 00 JMP ($0075) Execute User-command 

AA3F FF ... unused 

BEFF ... FF ROM area 
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[Table not used by DOS] 
Table of most important DOS routines 


BFOO 
BFO3 
BFO6 
BFO9 
BFOC 
BFOF 
BF12 
BF15 
BF18 
BF1B 
BFIE 
BF21 
BF2 4 
BF27 
BF2A 
BF2D 
BF30 
BF 33 
BF36 
BF39 
BF3C 
BF3F 
BF 42 
BF45 
BF 48 
BF 4B 
BF4E 
BFS1 
BF54 
BF57 
BFSA 
BF5D 
BF 60 
BF 63 
BF 66 
BF 69 


4c 
4c 
4c 
4C 
4c 
4c 
4c 
4c 
4c 
4c 
4c 
4c 
4c 
4c 
4C 
4C 
4c 
4c 
4c 
4c 
4c 
4c 
4c 
4C 
4C 
4C 
4c 
4c 
4c 
4c 
4c 
4c 
4C 
4C 
4c 
4c 
4C 
4c 
4c 


88 
DE 
BO 
BA 
93 
D1 
69 
BS 
00 
34 
56 
94 
E0 
65 
E9 
E6 
D9 
83 
F3 
TE 
05 
D1 
46 
68 
B3 
DC 
E6 
64 
70 
8E 
1E 
B4 
CO 
OA 
80 
4E 
59 
9C 
CA 


9D 
9D 
F2 
92 
F3 
93 
F9 
99 
FE 
F9 
F5 
97 
F8 
99 
F5 
F7 
98 
A4 
FE 
A4 
FO 
FO 
Cl 
C2 
C2 
C2 
86 
87 
87 
80 
CF 
D7 
DA 
E6 
90 
92 
F2 
F9 
99 
FE 


$9D88 
$9ODDE 
SF2BO 
S92BA 
$F393 
$93D1 
SF969 
$99B5 
SFEOO 
SF934 
SF556 
$9754 
SF8EO 
$9965 
SF5E9 
SF7E6 
$98D9 
$A483 
SFEF3 
SA47E 
SF005 
SFOD1 
$C146 
$C268 
$C2B3 
$C2DC 
$86E6 
$8764 
$8770 
S$808E 
SCFI1E 
SD7B4 
SDACO 
SE60A 
$9080 
$924E 


1541 IRQ routine 

1571 IRQ routine 

1541 jobloop 

1571 jobloop 

Set buffer pointer for Jobloop 
Set buffer pointer for Jobloop 
Conclude Job; Give return message 
Conclude Job; Give return message 
Switch head to read mode 

Convert block header to GCRvalues 
Wait for Sync-marking (1541) 

Wait for Sync-marking (1571) 
Convrt statsbuff from GCR to bin. 
Convrt statsbuff from GCR to bin. 
Compute sector checksum 

Convert 5 GCRbytes to 4 bin.bytes 
Convert 5 GCRbytes to 4 bin.bytes 
Wait approx. 80 cycles 

Delay for 1541 serial bus 

Wait approx. 45 cycles 

Clear buffer for BAM 

Get track number for BAM 

Execute command string 

Search cmd string f/paramaters 
Set pnter for cmd string analyses 
Clear all file pointers 

Execute routine w/#in accumulator 
Drive motor on 

Drive motor off 

[Error -- see 7.1.5] 

Look for and set buffer 

Execute Open command from bus 
Close channel and close file 

Send eror message from job loop 
Read file (PRG/SEQ/USR) 

Test ROM checksum 

Initialize 1541 disk controller 
1541 job loop off 

Stepper control 

{Error -- see 7.1.5] 


unused 
ROM area 
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[C38C/C439/C46A/C4 9A/CEOB/CFA2/D39E/D7E1] cf. 877C/C118 
LED on current drive ON 
(Routine taken from old double drives) 


C100 78 SEI Disable bus/controller interrupt 
C101 A9 F7 LDA #SF7 Place mask for LED-bit (Bit3) 
C103 2D 00 1C AND $1C00 so that LED-bit will be cleared 
C106 48 PHA Save mask 

C107 AS 7F LDA S$7F Drive number (always 0) 

C109 FO 05 BEQ $C110 Otherwise, jump to $C110 

C10B_ 68 PLA Unused if system has only one 
c10cC 09 00 ORA #500 drive 

C1lOE DO 03 BNE $C113 If drive 1 exists, jump to $C113 
c1i10+ 68 PLA Repeat mask 

C111 09 08 ORA #$08 LED-bit set (Bit3=1) 

c113! sp 00 1c. = STA_ $100 LED on 

C116 58 CLI Enable bus/controller interrupt 
C117 #60 RTS Return from this subroutine 


[Routine not used in DOS] cf. 877C/C100 
LED on 1571 dive ON 


C118 78 SEI Disable bus/controller interrupt 
C119 AQ 08 LDA #$08 LED-Bit (Bit3) set (Bit3=1) 
C11B OD 00 1¢ ORA $1C00 Take up other bits of register 
C1i1E 8D 00 1C STA $1C00 LED on 

C121 58 CLI Enable bus/controller interrupt 
C122 60 RTS Return from this subroutine 
[C1AA/D425/E6BC] 

Clear error flag 

C123 AQ 00 LDA #$00 Clear the error flag 

C125 8D 6C 02 STA $026C Clear error number 

C128 8D 6D 02 STA $026D Clear LED-Blinker flag 

C12B 60 RTS Return from this subroutine 
[E650] 

LED blinker on due to error 

C12c 78 SEI Disable bus/controller interrupt 
C1i2D 8A TXA Recover 

C12E 48 PHA X-register 

C12F <A9 50 LDA #$50 Set LED blink counter 

C131 8D 6C 02 STA $026C to 80 

C134 A2 00 LDX #$00 Go to drive 0 

C136 BD CA FE LDA SFECA, X Save LED-mask for chosen 

C139 8D 6D 02 STA $026D drive 

C13C OD 00 IC ORA $1C00 Drive LED 

C13F 8D 00 1c STA $1C00 on 
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Reset 

X-register 

Enable bus/controller interrupt 
Return from this subroutine 


Execute command string from computer 


C142 68 

C143. AA 

C144 58 

C145 60 

[A61C/BF42] 
C146 AQ 00 
C148 8D F9 
Cl14B AD 8E 
C14E 85 7F 
C150 20 BC 
C153 AS 84 
C155 10 09 
C157 29 OF 
C159 C9 OF 
C15B FO 03 
C15D 4C B4 
C1602 20 B3 
C163 Bl A3 
C165 8D 75 
C168 A2 OB 
ciéa! Bp 89 
C16D CD 75 
C170 FO 08 
C172 CA 

C173. 10 FS5 
C175 AQ 31 
C177 4C C8 
C17A! 8E 2A 
C17D EO 09 
C17F 90 03 
C181 20 EE 
cis4! ar 2a 
C187 BD 95 
C18A 85 6F 
C18C BD Al 
C18F 85 70 
C191 6C 6F 


02 
02 


E6 


D7 
C2 


02 


FE 
02 


LDA 
STA 
LDA 
STA 
JSR 
LDA 
BPL 
AND 
CMP 
BEQ 
JMP 
JSR 
LDA 
STA 
LDX 
LDA 
CMP 
BEQ 
DEX 
BPL 
LDA 
JMP 
STX 
CPX 
BCC 
JSR 
LDX 
LDA 
STA 


#$00 
$02F9 
$028E 
S7F 
SE6BC 
$84 
$C160 
#SOF 
#SOF 
$C160 
SD7B4 
$C2B3 


($SA3),Y 


$0275 
#S$0B 


SFE89,X 


$0275 
SC17A 


SC16A 
#$31 

$C1C8 
$022A 
#$09 

$C184 
SC1EE 
$022A 


SFE95,X 


S6F 


SFEA1,X 


$70 


(SOO06F) 


Set 
flag 
Take on last-used drive as 
current dive 

Produce 'OK' message 

Get last IEC secondary address 
Was it a Close command? 

Get number of chosen channel and 
test for command channel 

Is command channel being used? 
NO— 

Set params to command processing 
Get/save lst char from 

input buffer 

Number of disk commands 

Get char from 154lcommand table & 
compare with command characters 
Is that the desired command? 
NO-Go to next command character 
Compared with all commands? 
YES—Display 

'31 Syntax Error' message 

Save command number 

Compare with number for 'Rename' 
Is command 'R', 'S'’ or 'N' ? 
YES—Check syntax 

Get back command number 

Get lo-byte of command of table & 
set in pointer 

Transfer hi-byte of start address 


'Write BAM to diskette’ 


Execute command 
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[9196/C99E/C9A4/CAC9/CB6F/CC18/CCFB/CD16/CD5C/CD70/CD94/CDA0/CDB7/CDCF] 
[DOOB/D7F0/D99D/DAE6/DAFC/E272/EDBO/EEB4] | 

End of computer command; produce an error message 

C194 <A9 OO LDA #S00 Clear Write BAM to diskette’ 

C196 8D F9 02. STA $02F9 flag 


[DA06} End of command;but don't write BAM to diskette 


C199 AD 6C 02 LDA $026C Get error flag 

C19C DO 2A BNE $C1C8 Is an error extant? 
C19E AO OO LDY #$00 NO—Prepare OK-message 
C1A0 98 TYA Clear error number 


[(C87A] end of command; ignore error 


C1lA1 84 80 STY $80 Set track and 

C1A3 84 81 STY $81 sector to zero 

C1A5 84 A3 STY SA3 Set back input buffer pointer 
C1lA7 20 C7 E6 JSR SE6C7 Produce 'OK'-message 

CIAA 20 23 Cl JSR $C123 Clear error flags 


[DAE9/DAFF] End of command; no return message prepared 


C1lAD AS 7F LDA $7F Save current drive (usually 0) 
C1AF 8D 8E 02 STA $SO028E as last drive number 

C1B2 AA TAX for current drive 

C1B3 4C 9D AQ JMP SA99D Clear 'Drive active' flag 

C1B6 EA NOP [through modification of 1541R0OM] 
C1B7 20 BD Cl JSR $C1BD Clear input buffer ($0200-$0228) 
C1BA 4C DA D4 JMP SD4DA Close internal read/write chanels 
[(C1B7/E648] 

Clear input buffer for command from computer 

C1BD AO 28 LDY #528 Overwrite 41 character positions 
C1BF AQ 00 LDA #500 with zero 

cicil 99 00 02 STA $0200,Y (range $0200-$0228) 

Cic4 88 DEY Next character 

C1ic5 10 FA BPL $C1Cl1 All characters cleared yet? 

C1C7 60 RTS YES—Return from this subroutine 
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[850E/85AC/9023/9107/C177/C19C/C1F5/C265/C2D9/C41D/C8C3/C925/C984/CAE3 | 
[CAF 1/CB4D/CBA2/CC28/CC2D/CD33/CDE2/CF78/CFFA/D214/D38E/D839/D8ED/D8F2] 
[D947/D959/D967/D9C0/E0D3/E16B/E216/E225/E299/E365/E44B/E7C2/EE16/FOEF } 


Display error message and necessary number in accumulator 
LDY #500 


STY 
STY 
JMP 


$80 
$81 
SA9D5 


Clear pointer 

Clear track number and 
sector number 

Put message in buffer 


[F15C] 

c1ics Ao OO 
C1iCA 84 80 
cicc 84 81 
CiCE 4C D5 AQ 
[DO005/D7FF/ED84] 
Look for ':' and 
(Y-Register 
CiD1l A2 00 
C1D3 8E 7A 02 
CiD6 AY 3A 
C1D8 20 68 C2 
C1DB FO 05 
C1DD 88 

C1DE 88 

C1IDF 8C 7A 02 
C1E2! 4c 68 C3 


drive number in command string 
must point to current position in buffer) 


LDX 
STX 
LDA 
JSR 
BEQ 
DEY 


#500 
SO27A 
#53A 
$C268 
SC1E2 


Clear pointer to drive# position 
in input buffer 

Look for a colon when looking for 
characters in input buffer 

Has colon been found? 
YES-Y-Register shows positiont+tl 
of character; 

Drive # position (before ':') 

Set drive and turn LED on 


eee eee ewe ee ee we we ee oe ee we we en oe es we oe we ee we we ee ee ee wee were wnnanre eee ee eee e_eaee 


[C1LEE/C904/D82B/DA86] 
colon in command string 


LDY 
LDX 
LDA 
JMP 


#500 
#500 
#53A 
$C268 


Starting position of search 
Number of filenames found 
Colon declared as sought char 
Search through input buffer 


Test command with two filenames for syntax 


Look for 
C1E5 AO 00 
C1E7 A2 00 
C1E9 AQ 3A 
C1lEB 4C 68 
[C181] 

C1lEE 20 E5 
C1F1 DO 05 
cir3! a9 34 
C1F5 4C C8 
C1F82 88 
C1F9 88 
C1IFA 8C 7A 
C1FD 8A 
C1IFE DO F3 
c200! A9 3D 
C202 20 68 
C205 8A 
C206 FO 02 
C208 AQ 40 


C1 


Cl 


02 


C2 


JSR 
BNE 
LDA 
JMP 
DEY 
DEY 
STY 
TXA 
BNE 
LDA 
JSR 
TXA 
BEQ 
LDA 


SC1E5 
SC1F8 
#$34 

$C1C8 


SO27A 
SC1F3 
#$3D 


$C268 


SC20A 
#540 


Look for colon in input buffer 
Has colon been found? 

NO—Display 

'34 Syntax Error’ error 
Y-Register points to position +1 
Set pointer before ':' 

Save position of drive number 
Number of filenames already found 
Have several names been found? 
NO-'=' - character 

Look at line after '=' 

Number of filenames found so far 
Has only one file been found? 
NO-Bit 6 as flag for more files 
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c2oal 
c20c 
C20F 
C210 
C213 
C216 
C219 
C21B 
C21D 
C220 
C223 
C225 
c2281 
C229 
C22B 
C22E 
C231 
C234 
C236 
C239 
C23A 
C23D 
C23E 
C241 
C243 
c2451 
C248 
C24A 
c24cl 
C24E 
C251 
c2541 
C257 
C25A 
C25D 


09 
8D 
E8 
8E 
8E 
AD 
FO 
AQ 
OD 


21 
8B 


77 
78 
8A 
OD 
80 
8B 
8B 
00 
8A 


29 
7A 
77 
719 
8D 
68 


718 


8A 
02 
08 
77 
02 
04 
03 
8B 
8B 
8B 
2A 
A5 
01 


6C 
30 
C8 


02 
02 


02 
02 


02 


02 


02 


02 


02 


02 


C2 


02 


02 


02 


#$21 
$028B 


$0277 
$0278. 
$028A 
$C228 
#$80 

$028B 
$028B 
#$00 

SO28A 


$C254 


$027A,X 


$0277 
$0279 
#$8D 

$C268 


$0278 


SO28A 
$C245 
#$08 

$0277 
$C24C 
#$04 

#503 

$028B 
$028B 
$028B 
$022A 


SFEAS,X 


$C260 


Bit 0 & 5 for'lst filename found' 
Save bitflags 

Point to end of lst filename 
Number of files found by lst 

file description 

Wildcard flag ('*"') 

Wildcard onhand in filename? 
YES-—Set flag in syntax byte 

and 

save flag again 

Clr search routine wildcard flag 
Position of '=' - char in command 
End of command line found? 
NO-Save position of filename 

The # of files for lst filenaming 
set as number for second naming 
Look for command string endmarker 


- and continue search to end 


Save # of commas found;from that 
save the # of additionl filenames 
Establish original value 
Wildcard flag ('*') 

Wildcard onhand? 

YES-Set Bit 3 as flag 

Compare length with old value 
Any more filenames found? 
YES-Flag:filenames aftr '=' char. 
Flag for '=' character onhand 
Combine previous flags & save as 
new syntax status 

Syntax flag for command 

Compare onhand command numbers 
with allowable syntax; 

all legal? 

YES—Return from this subroutine 
Save type of incorrect syntax 
Display 

'30 Syntax Error' 


ROM - 115 


Abacus Software 


1571 Internals 


eg sn eS 


[C1D8/C1EB/C202/C236/CC21/CC75/D845] 
Search input line for character from accumulator 


(Y-Register 
(X-Register 


C268 
C26B2 
C26E 
C270 
C272 
C273 
C276 
C278 
C27A 
C27C 
C27E 
c280t 
c283t 
C285 
C287 
C288 
C28B 
C28E 
C290 
C292 
C294 
C296 
c2991 
C29A 
C29C 
c29E1 
c2aol 
C2A3 
C2A6 
C2A9 
C2AB 


8D 
CC 
BO 
Bl 
C8 
CD 
FO 


715 
74 
2E 
A3 


SEs) 
28 
2A 
04 
3F 
03 
8A 
2C 
B4 


1B 
8A 
TF 
07 
80 
E7 
8A 


04 
CD 
00 
74 
7B 
8A 
TF 
04 
80 
E7 


must contain current position in input buffer;) 


contains 


02 
02 


02 


02 


02 
02 


02 


02 
02 
02 


STA 
CPY 
BCS 
LDA 
INY 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BNE 
INC 
CMP 
BNE 
TYA 
STA 
LDA 
AND 
BEQ 
LDA 
STA 
STA 
INX 
CPX 
BCC 
LDY 
LDA 
STA 
LDA 
AND 
BEQ 
LDA 


number of parameters found) 


$0275 
$0274 
SC29E 


($A3),¥Y 


$0275 
SC2A0 
#52A 
$C280 
#$3F 
$C283 
SO28A 
#52C 
$C26B 


$027B,X 


SO28A 
#5 7F 
$C299 
#580 
SE7,X 
SO28A 


#504 
$C26B 
#500 
$0274 


$027B,X 


$028A 
#S7F 
$C2B1 
#$80 
SE7,X 


Chars looked for by system 

Test length of command string 
End reached? 

NO-—Get char from input buffer 
Set pointer to next character 
Characters to be searched for 
Identical w/chars. in input line? 
NO—Compare with wildcard ('*') 
Identical? 

NO—Compare with wildcard ('?') 
Identical? 

YES—Set wildcard flag 

Compare current char with ',' 
Identical? 

YES-Save comma position+l as 
start- position of next parameter 
Get wildcard flag back 

Clear wildcard flag 

Find a joker? 

YES—-Set bit 7 as flag and 

save filename as name with joker 
Set bit 7 of wildcard flag 
Increment # of parameters found, 
separated by commas; reached a 
maximum of five open files? 
YES—Y-value=0 signalling end 
Save length of command line as 
start position of last parameter 
Get wildcard flg of last filename 
Remove bit 7 

Wildcard in parameter onhand? 
YES—Identify in file table as 
name with a wildcard attached 
Position in input line (end=0) 
Return from this subroutine 
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[BF48/C160/D7B9/E207/C2DC: BF4B, DA86] 
Set all flags and look at command string table 


C2B3 A4 A3 LDY $A3 Low-byte of input buffer pointer 
C2B5 FO 14 BEQ $C2CB address $A3/SA4 =$0200? 

C2B7 88 DEY NO—Adjust buffer pointer 

C2B8 FO 10 BEQ SC2CA Is $A3 =1? 

C2BA 20 02 AA JSR SAA02 NO-Test for User command 

C2BD C9 OD CMP #S0D Check command chars for <RETURN> 
C2BF FO OA BEQ $C2CB End-of-line reached? 

C2C1 88 DEY NO-Set pointer to character 

C2C2 B9 00 02 LDA $0200,Y Get char from buffer; compare 
C2C5 C9 OD CMP #S0D with <RETURN> (end-of-line) 

C2C7 FO 02 BEQ $C2CB Identical? 

C2C9 C8 INY NO-Set buffer pointer back to 
cocal cg INY output value 

C2cB> 8c 74 02 STY $0274 Save pointer value to end of cmd 
C2CE CO 2A CPY #S2A string; max. length reached? 

C2D0 AO FF LDY #SFF Value of 'no command! command # 
C2D2 90 08 BCC $C2DC Cmd string less than buffer(42)? 
C2D4 8C 2A 02 STY $022A NO-—Clear command number 

C2D7 AY 32 LDA #$32 Line too long? 

C2D9 4C C8 Cl JMP $C1C8 Display '32 Syntax Error' message 
c2pc3 AO 00 LDY #$00 Clear & set back table, pointers 
C2DE 98 TYA and flags 

C2DF 85 A3 STA SA3 Input buffer pointer at $0200 
C2E1 8D 58 02 STA $0258 Current record length 

C2E4 8D 4A 02 STA $024A Current filetype 

C2E7 8D 96 02 STA $0296 Filetype from command string 

C2EA 85 D3 STA SD3 Pointer to first filename 

C2EC 8D 79 02 STA $0279 Filename pointer 

C2EF 8D 77 02 STA $0277 #of files for lstfile designation 
C2F2 8D 78 02 STA $0278 fof files for 2ndfile designation 
C2F5 8D 8A 02 STA $028A ‘Wildcard found in filename' flag 
C2F8 8D 6C 02 STA $026C "Syntax Error' flag 

C2FB: A2 05 LDX #505 Clear table to five filenames 
c2Fpl 9p 79 02 #8STA $0279,X End position of filename in buffr 
C300 95 D7 STA $D7,X Directory sector of file 

C302 95 DC STA SDC,X Position/file in directory sector 
C304 95 El STA $E1,X Drive number of file 

C306 95 E6 STA SE6,X Filetype and wildcard flag 

C308 9D 7F 02 STA $O27F,X Current track number of file 

C30B 9D 84 02 STA $0284,X Current sector number of file 
C30E CA DEX Table for next filename 

C30F DO EC BNE $C2FD All 5 possible filenames ready? 
C311 60 RTS Return from this subroutine 
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[90B8/A60E/D84C/EE0D/C320:C826,C90F, CA88, DAI6] 
Get drive number of file and set into file table 


78 
77 
O01 
78 
719 
8E 
00 
D3 
TA 
3C 
D3 
7A 


E2 


718 
EA 


02 
02 


02 


02 
02 


02 


C3 


02 


02 


LDA 
STA 
LDA 
STA 
STA 
LDY 
LDX 
STX 
LDA 
JSR 
LDX 
STA 
TYA 
STA 


$0278 
$0277 
#501 
$0278 
$0279 
$028E 
#500 
$D3 


SO27A,X 


$C33C 
$D3 


SO27A,X 


SE2,X 


$0278 
$C325 


Recover number of files for 

file specification 

Set number to be given for 

a file 

indication 

Lzast active drive 

Save current number 

of filename 

Starting pos.of filename in buffr 
Get drive number from buffer 
Number of current file parameters 
Save position in command string; 
Get drive position from that 

Set drive number for file 

Go to next file 

Compare with # of files to be 
worked on; all of them ready? 
YES—Return from this subroutine 


Get drive number 


C312 AD 
C315 8D 
C318 a9 
C31A 8D 
C31D 8D 
C3207 ac 
C323 A2 
C325° 86 
C327 BD 
C32A 20 
C32D A6 
C32F 9D 
C332 98 
C333 95 
C335 E8 
C336 EC 
C339 90 
C33B 60 
[C32A] 

C33C AA 
C33D AO 
C33F A9 
C341 DD 
C344 FO 
C346 DD 
C349 DO 
C34B ES 
c34c! 98 
C34D2 29 
c34Frl ag 
C350 8A 
C351 60 
c352! pp 
C355 E8 
C356 E8 
C357 C9 
C359 FO 
C35B cg 
C35D FO 


00 
3A 
01 
0c 
00 
01 


01 


00 


30 
F2 
31 
BE 


02 


02 


02 


from command string 


TAX 
LDY 
LDA 
CMP 
BEQ 
CMP 
BNE 
INX 
TYA 
AND 
TAY 
TXA 
RTS 
LDA 
INX 
INX 
CMP 
BEQ 
CMP 
BEQ 


#500 
#S$3A 


$0201,X 


$C352 


$0200,X 


$C361 


#$01 


$0200,X 


#$30 
$C34D 
#$31 
$C34D 


Position of filename in buffer 
Number of standard drive 

Colon ‘3° 

Colon behind current position? 
YES—Then syntax correct/goto$C352 
Compare with current position 
Pointer aiming at a colon? 
YES—-No drive assignment 

Drive number 

(O or 1 allowed only); 

save drive in Y-register 

Current position in input buffer 
Return from this subroutine 
Drive number from command string 
Set input buffer pointer behind 
drives indicator (':') 

Drive null? 

YES—Then set drive; 

Test for drive 1 

Identical? 
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C35F DO EB BNE $C34C NO—Jump to $C34C 

c3611 98 TYA Standard drive number (0) 

C362 09 80 ORA #$80 Set flag for improper 

C364 29 81 AND #$81 drive number and give to 

C366 DO E7 BNE $C34F subroutine 

[C1lE2] 

Initialize drive and switch drive LED on 

C368 A9 00 LDA #500 Clear command syntax 

C36A 8D 8B 02 STA $028B flag 

C36D AC 7A 02 LDY $O27A Current position in input buffer 
c370! B1 a3 LDA (S$A3),Y Get character from command string 
C372 20 BD C3 JSR $C3BD Test for legal drive number 
C375: 1011 BPL $C388 Number correct? 

C377 C8 INY NO—Pointer to next character 
C378 CC 74 02 CPY $0274 Length of command string 

C37B BO 06 BCS $C383 Reached end? 

C37D AC 74 02 LDY $0274 NO-Length of command string 
C380 88 DEY Set pointer to last character 
C381 DO ED BNE $C370 Is only 1 command char onhand? 
C383! CE 8B 02 DEC $028B YES—'not found' in syntax flag 
C386 A9 00 LDA #$00 Set number of standard drive 
c388 29 o1 AND #$01 as current drive number 

C38A 85 7F STA S7F == 

C38C 4C 00 Cl JMP $C100 LED on 


[C40E/C420/C427/C467/C497/C704/C70B] 
Switch to other drive 


C38F AS 7F LDA $7F Current drive number 

C391 49 01 EOR #$01 Turn to drive bit and remove 
C393 29 01 AND #$01 other bits 

C395 85 7F STA S7F Store as current drive 

C397 60 RTS Return from this subroutine 
[C823/DA98} 

Set and determine filetype 

C398 AO 00 LDY #$00 Choose first filename for table 
C39A AD 77 02 LDA $0277 Check position of lst filename 
C39D CD 78 02 CMP $0278 w/position of filetype identifier 
C3A0 FO 16 BEQ $C3B8 Identical? 

C3A2 CE 78 02 DEC $0278 NO-Then set pointer to filetype 
C3A5 AC 78 02 LDY $0278 == 2 

C3A8 B9 7A 02 LDA $027A,Y Take pointer to end of filename 
C3AB A8 TAY and get matching characters 
C3AC Bl A3 LDA (S$A3),Y from the filename 

C3AE AO 04 LDY #S$04 Number of possible filetypes 
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gm a DT 


SFEBB, Y 


$C3B8 


$C3BO 


$0296 


Characters in filetype table 
onhand? 

Turn pointer to next filetype 
Already testd with all filetypes? 
YES—Save number of 

filetypes (=0 when none exist) 
Return from this subroutine 


Drive number tested for validity 


c3B0! D9 BB FE 
C3B3 FO 03 
C3B5 88 

C3B6 DO F8 
C3B82 98 

C3B9 8D 96 02 
C3BC 60 
[C372/DA68] 
C3BD C9 30 
C3BF FO 06 
C3C1 C9 31 
C3C3. FO 02 
C3C5 09 80 
C3Cc72 29 81 
c3c9 60 


CMP 
BEQ 
CMP 


#$30 
$C3C7 
#$31 


Is drive number 

equal to drive 0? 

NO—Then is drive number 

equal to drive 1? 

NO—-Set bit 7 as error flag &clear 
remaining bits(from ASCII values) 
Return from this subroutine 


[C44F/C829/D84F/DA9E] 
Initialize drive given in filename 


C3CA 
C3CC 
C3CE 
C3D1 
C3D2 
C3D52 
C3D6 
C3D8 
C3D9 
C3DB 
C3DD 
C3DE 
C3E0 
C3E2 
C3E4 
C3E6 
c3E81 
C3E9 
C3EB 
C3ED 
c3EF! 
C3F0 
C3F1 
C3F4 
C3F5 
C3F7 


AQ 
85 


00 
6F 
8D 02 


78 02 
6F 


01 
6F 


OF 
E2 
04 
6F 
6F 


EA 
oF 
E6 


3F C4 


03 
8C 02 


LDA 
STA 
STA 
PHA 
LDX 
PLA 
ORA 
PHA 
LDA 
STA 
DEX 
BMI 
LDA 
BPL 
ASL 
ASL 
LSR 
BCC 
ASL 
BNE 
PLA 
TAX 
LDA 
PHA 
AND 
STA 


#$00 
S6F 
$028D 
$0278 
S6F 


#501 
S6F 


SC3EF - 


SC43F,X 


#$03 
$028C 


Clear temp. memory for creating 
index of control bytes 

Clear ‘number of drives' flag 
Prepare stack for following prog. 
Number of names going with files 
Pointer to control byte 

Enter and save last 

entry 

Set flag for 
is onhand' 
Countr for filenames tobe checked 
Dirve number ready for all files? 
Get file drive number 

Drives identifier set? 

NO-Ad just 

bit flags 

Test drive number 

Is drive 1 chosen? 

YES—Pointer to bytes for drive 1 
Jump to $C3D5 

Set control byte pointer 

for drive initialization 

Get and save access 

control byte 

Determine # of allowable drives; 
save it 


‘Drive indication 
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C3FA 68 PLA Repeat control byte 

C3FB OA ASL A Flag for "Only one drive' 

C3FC 10 3E BPL $C43C Is only one indicator allowed? 
C3FE AS E2 LDA S$E2 YES—Take drive # of first file 
C400 29 01 AND #$01 as current 

C402 85 7F STA S7F drive 

C404 AD 8C 02 LDA $028C Get number of allowable drives 
C407 FO 2B BEQ $C434 Is it an allowable drive? 

C409 20 3D C6 JSR $C63D NO-Initialize current drive » 
c40c FO 12 BEQ $C420 Drive ready? 

C40E 20 8F C3 JSR $C38F NO-—Switch to other drive 

C411 AQ OO LDA #$00 Clear number of allowable 

C413 8D 8C 02 STA $028C drives 

C416 20 3D C6 JSR $C63D Initialize other drive 

C419 FO 1E BEQ $C439 Drive ready? 

c4ipi ag 74 LDA #874 NO—-Display 

C41D 20 C8 Cl JSR $C1Cc8 '74 Drive Not Ready' message 
c4201 20 8F C3. JSR $C38F Change to other drive 

C423 20 3D C6 JSR $C63D Initialize drive and 

C426 08 PHP save result 

C427 20 8F C3 JSR $C38F Switch to other drive & get 
C42A 28 PLP previous result again 

C42B FO OC BEQ $C439 Is previous drive ready? 

C42D A9 O00 LDA #$00 NO-—CLear legal number of 

C42F 8D 8C 02 STA $028C drives 

C432 FO 05 BEQ $C439 Jump to $C439 

c4341 20 3D C6 ~=JSR $C63D Initialize drive 

C437 DO E2 BNE $C41B Is drive ready? 

C4393 4c 00 Cl JMP $C100 YES—Switch LED of drive on 
c43c! 2a ROL A Adjust control byte and get 
C43D 4C 00 C4 JMP $C400 drive number from control byte 
[C3F1] Control bytes for type of drive initialization 


Functions of individual bits: 


Bit 0/1 : Number of drives utilized (0/1/2) 

Bit 6 : 1= Take drive number from control byte 
Bit 7 0/1 drive number for Bit6 

C440 00 80 41 01 01 01 01 81 


C448 81 81 81 42 42 42 42 
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[90C8/C952/CA99/E7B8] 
Look for file entry in directory 





C44F 20 CA C3 JSR $C3CA Set disk drive for file to search 
c4521 a9 00 LDA #S$00 Indicator on list directory entry 
C454 8D 92 02 STA $0292 Erase 

C457 20 AC C5 JSR SC5AC Set indicator, search entry 
C45A DO 19 BNE $C475 Valid entry found? 

ca5c! cE 8C 02 DEC $028C NO-number of disk drives 

C45F 10 O1 BPL $C462 One more disk drive? 

C461 60 RTS Back to calling routine 

c4621 a9 01 LDA #$01 Flag for both disk drives 

C464 8D 8D 02 STA $028D Search set 

C467 20 8F C3 JSR $C38F Change to other disk drive 

C46A 20 00 Cl JSR $C100 Activate LED at disk drive 

C46D 4C 52 C4 JMP $C452 Search entry on other disk drive 
c470! 20 17 C6 ~=JSR $C617 Search next valid file 

C473 FO 10 BEQ $C485 Found? 

C4752 20 D8 C4 JSR $C4D8 YES—check directory entry 

C478 AD 8F 02 LDA $028F Indicator for file entry found 
C47B FO O1 BEQ SC47E Is entry corrrect? 

C47D_ 60 RTS YES—back to calling routine 
c47E! ap 53 02 LDA $0253 Flag for entry is found 

C481 30 ED BMI $C470 Is file found? 

C483 10 FO BPL $C475 YES— jump to $C475 

c485/ ap 8F 02 LDA $028F Is flag for file found 

C488 FO D2 BEQ $C45C Last entry? 

C48A_ 60 RTS NO—return to the calling routine 
[C86D] 

Search file entry in directory 

C48B 20 04 C6 JSR $C604 Search directory for file 

C48E FO 1A BEQ SC4AA Is entry found? 

C490 DO 28 BNE SC4BA YES—continue at SC4BA 

c4921 ag 01 LDA #$01 Flag for access on both drives 
C494 8D 8D 02 STA $028D Set 

C497 20 8F C3 JSR $C38F Change to other disk drive 

C49A 20 00 Cl JSR $C100 Switch on LED 

c49p> a9 00 LDA #S$00 Indicator on first value 

C49F 8D 92 02 STA $0292 Delete entry 

C4A2 20 AC C5 JSR $C5AC Initial indicator; search entry 
C4A5 DO 13 BNE SC4BA Is file found? 

C4A7 8D 8F 02 STA $028F Position 

C4AA2 AD 8F 02. LDA $028F Store 

C4AD DO 28 BNE $C4D7 Last entry 

C4AF CE 8C 02 DEC $028C YES—number of allowed drives 
C4B2 10 DE BPL $C492 Switch to other disk drive? 
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C4B4 60 RTS 
C4B5° 20 17 C6 JSR $C617 
C4B8 FO FO BEQ SC4AA 


C4BA2 20 D8 C4. JSR S$C4D8 
C4BD AE 53 02. + LDX $0253 


C4c0 10 O7 BPL $Cc4c9 
C4C2 AD 8F 02 LDA $028F 
c4C5 FO EE BEQ $C4B5 
C4C7 DO OE BNE $C4D7 
c4c91 aD 96 02 = LDA $0296 
C4cc FO O09 BEQ $C4D7 
C4CE B5 E7 LDA SE7,X 
C4D0 29 07 AND #5$07 
C4D2 CD 96 02 CMP $0296 
C4D5 DO DE BNE $C4B5 
c4D7> 60 RTS 
[C475/C4BA] 

Search directory entry 
C4D8 A2 FF LDX #SFF 
C4DA 8E 53 02 STX $0253 
C4DD_ E8 INX 


[C4F5/C4FC/C513/C519/C533] 
Search next entry 
C4E7 20 94 CS JSR $C594 


C4EA DO FA BNE S$C4E6 
c4Ec! A5 7F LDA $7F 
C4EE 55 E2 EOR $E2,X 
C4FO 4A LSR A 
C4F1 90 OB BCC $C4FE 
C4F3 29 40 AND #$40 
C4F5 FO FO BEQ $C4E7 
C4F7 AQ 02 LDA #$02 
C4F9 CD 8C 02 CMP $028C 
C4FC FO E9 BEQ $C4E7 
C4FE! BD 7A 02. LDA $027A,X 
C501 AA TAX 

C502 20 A6 C6 JSR S$C6AE 
C505 AO 03 LDY #$03 


C507 4C 1DC5 #£JMP $C51D 
c50A: BD 00 02 +#£LDA $0200,X 


1571 Internals 


NO-return to calling routine 

Get next entry 

Entry found? 

YES-verify entry w/searched flag 
Get flag 

Is entry the same? 

NO-get flag found for file 

Was file found? 

NO—jump to $C4D7 

Get actual file type 

Is entry valid? 

YES-get indicator:search filetype 
And insulate save for type 
Verify with search file type 
Identical? 

YES—return to calling routine 


Flag for entry found 

Delete 

(0) 

Delete flag for wildcard 

Set file flag 

Was entry found? 

YES—return to calling routine 


Search next entry 

Found ? 

YES-get current disk drive and 
Verify with disk drive number of 
the file entry 

Identical? 

NO-get flag for disk drive type 
Drive set with standard value? 
YES—value f/access to both drives 
Verify with access flag 

Search for both disk? 

NO-get and store position of file 
Name in command string 

Set parameter for name in command 
Set buffer indicator on Dir. name 
Verify names with command string 
Get character from oommand string 
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C50D 
C50F 
C511 
C513 
C515 
C517 
C519 
c51Bl 
c51C 
c5ip1 
C520 
C522 
C525 
C527 
C529 
c52B1 
C52D 
C52F 
C531 
C533 
C5352 
C538 
C53B 
C53D 
C53F 
C542 
C545 
C547 
C549 
C54B 
C54D 
C54F 
C550 
C551 
C553 
C555 
C556 
C558 
C55A 
c55cl 
C55E 
C560 
C562 
C564 
C566 
C568 


48 
29 


29 


29 


94 
OA 
3F 
D2 
94 
AO 
CC 


716 
09 
00 
2A 
OC 
DF 
13 
06 
94 
AO 
B2 
719 
53 
E7 
80 
8A 
94 
DD 
81 
D8 
00 
94 


40 
oF 


DF 
02 
20 
27 
oF 
oF 
80 
E7 
oF 
E7 


02 


02 


02 
02 


02 
02 


CMP 
BEQ 
CMP 
BNE 
LDA 
CMP 
BEQ 
INX 
INY 
CPX 
BCS 
LDA 
CMP 
BEQ 
BNE 
CPY 
BCS 
LDA 
CMP 
BNE 
LDX 
STX 
LDA 
AND 
STA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
INY 
PHA 
AND 
STA 
PLA 
AND 
BMI 
ORA 
AND 
ORA 
STA 
LDA 
AND 
ORA 
STA 


($94),Y 


$C51B 
#S3F 
SC4E7 


($94),Y 


#SA0 
SC4E7 


$0276 
$C52B 


$0200,X 


#52A 
$C535 
SCSOA 
#513 
$C535 


($94),¥Y 


#SA0 
SC4E7 
$0279 
$0253 
SE7,X 
#$80 
SO28A 
$0294 
SDD,X 
$81 
SD8,X 
#500 


($94),¥Y 


#540 
S6F 


#SDF 
$C55C 
#$20 
#$27 
S6F 
S6F 
#580 
SE7,X 
S6F 
SE7,X 


Verify name with directory name 
Identical? 

NO—verify wilcard with '?! 
Identical? 

YES—get char from directory entry 
Verify w/value for shift space 
Entire filename already read? 
NO—indicator of command string 
Point idicator in directory buff 
Indicator to end of name in comnd 
End of filename reached? 

NO-get character from filename 
Verify with '*'char for wildcard 
Identical? 

NO—jump to $C50A 

Verify with return 

Is ASCII value smaller ? 

YES—get char from directory and 
Verify with value for shift space 
Complete filename already read? 
YES-—get position for dir. entry 
and set indicator 

Determine entry of file 

Set flag for joker 

and store 

Indicator to pos. in dir. buffer 
Determine filename in table 
Number of directory sector 

store 

Buffer indicator to entry start 
Get file type from directory 
Buffer indicator to next char 
Store original file type 

Insulate flag for scratch-protect 
and store 

Recall file type 

Fade out scratch file 

Is file closed properly? 

NO-—flag for'*' file 

Take over flag and file type 

and fade in scratch flag 

Store both 

Flag for 'File type is set! 

Take over from table 

& fade in bits from new filetypes 
Determine type in table/filename 
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SS 


C56A BS E2 LDA SE2,X 
C56C 29 80 AND #$80 
C56E 05 7F ORA S7F 
C570 95 E2 STA S$E2,X 
C572 Bl 94 LDA ($94),Y 
C574 9D 80 02 STA $0280,X 
C577 C8 INY 

C578 Bl 94 LDA ($94),Y 


CS7A 9D 85 02 STA $0285,X 
CS57D AD 58 02 LDA $0258 


C580 DO 07 BNE $C589 
C582 AO 15 LDY #515 
C584 Bl 94 LDA ($94),¥Y 


C586 8D 58 02 STA $0258 


[C4E1/C580]} 

Re-initial flags 

C589 AY FF LDA #5FF 
C58B 8D 8F 02 STA $028F 


[(C4E7/C5A4] 
Quit search for filename 
C594 CE 79 02 DEC $0279 


C597 10 01 BPL $C59A 
C599 60 RTS 

c59A1 AE 79 02 DX $0279 
C59D BS E7 LDA $E7,X 
C59F 30 05 BMI $C5A6 
C5Al BD 80 02. LDA $0280,X 
C5A4 DO EE BNE $C594 
c5a6! a9 00 LDA #$00 
C5A8 8D 8F 02. STA $028F 
C5AB. 60 RTS 


[C457/C4A2/D70E/ED97] 


Get number of entry's disk drive 
and current disk drive number 
Enter 

Write value in disk drive table 
Get track number of list sector 
and enter in table 

Point indicator to next byte 

Get sector number from entry 

and store 

Get current record length 

Is value set? 

NO—buffr indicator to value/entry 
Get record length of dir. entry 
and store in indicator 


Delete indicator 

Flag for last entry 

Indicator to position of filename 
in the input buffer 


Number of filenames 

Process more entries? 

NO—back to calling routine 

Get number of filename 

and determine current file type 
Is value set? 

NO-get track of first sector 
Is value determined? 
NO—-flag:last dir entry reached 
set 

Return to calling routine 


Set indicator to search in directory 


C5AC AO O00 LDY #$00 
C5SAE 8C 91 02 STY $0291 
C5B1 88 DEY 


C5B2 8C 53 02 STY $0253 
C5B5 AD 85 FE LDA $FE85 


C5B8 85 80 STA $80 
CSBA AQ O01 LDA #$01 
CSBC 85 81 STA $81 


Indicator to current dir. sector 
Delete 

Flag for 'ENTRY FOUND' 

Reset 

Number of directory track (18) 
Get, and store as current track 
Indicator to sector number 

Set 
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02 


FE 


02 


D4 
02 
D4 


02 
02 


D1 
C5 
D4 
C5 


$0293 
$D475 
$0293 
SC5CA 


#507 
$0295 
#$00 
SD4F6 
$0293 
SD4E8 
$0295 
#500 


($94),¥Y 


SC5FB 
$0291 
$C617 
SDE3B 
$81 

$0291 
$94 

$0292 


’ $0292 


$C617 


#$01 
$0292 
SC62F 
$C617 
SFE85 
$80 
$0290 
$81 
$D475 
$0294 
$D4C8 
#SFF 
$0253 
$0295 
$C629 
#$20 
$D1C6 
$C5D7 
$D44D 
$C5C4 


1571 Internals 


Delete flag for 'SECTOR READ! 
Transfer sector in buffer 
Indicator to next dir. sector 

Is there another sector? 
NO-return to calling routine 
Store amount of file entries in 
a directory block - 1 

Position of byte to read 

Get byte of current buffer 

and store 

Set indicator for current buffer 
Counter for entries in dir.sector 
Set indicator to start of entry 
and get file type identification 
Is entry deleted? 

YES—number of current sector 

Is value set? 

NO-get track and sector number 

# of current directory sector 
Store 

Low-byte of indicator to entry 
Get indicator to valid entry 

Set new value 

Was indicator deleted before? 
NO-return to calling routine 
Number of first entry 

Verify with last value 

Was first entry set? 

NO—jump to $0617 

Number of directory track 

Get and store as current track 
Number of directory sector 

Store as current sector 

Read sector from disc in buffer 
Indictor on postion of entry 

Set directory indicator 

Flag for 'file entry found' 
Delete | 

# of directory entries per sector 
Is counter set? 

YES—amount of bytes of an entry 
Buff indictor to next file entry 
Set indicator | 
Read next block from directory 
Set indicator 
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cé6é2Ft 
C631 


A5 
8D 
20 


1571 Internals 


en 


Low-byte of current indictor 
Store 

Get track and sector of last job 
Number of directory sector 

Store 

Back to calling routine 


[83A0/840B/9088/C409/C416/C423/C434/CB8C] 


Initial Diskette 


LDA 
BNE 
LDX 
LSR 
BCC 
LDA 
STA 
JSR 
LDY 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
LDY 
LDX 
TYA 
STA 
BNE 


$68 
$C669 
S7F 
$1¢,X 
$C669 
#SFF 
$0298 
SDOOE 
#SFF 
#$02 
SC65F 
#$03 
SC65F 
#S0F 
SC65F 
#500 
S7F 


SFF,X 
$C669 
$D042 
STF 

SFF,X 


Flag for ‘initial automatic' 
Initial permitted only by hand? 
NO—number of current disc drive 
Get/check flag for initialization 
Shall disc be initialized? 
Yes,watch flag for ‘error by job’ 
Delete 

Check if disk is inserted 

Flag value for 'error occured!’ 
Verify result with code for sync 
Was sync mark found? 

YES—check for blockheader code 
Was blockheader found? 

YES—check code of disk drive 

Is the disk drive approachable? 
YES-—flag value for "no error' 
Get number of current disk drive 
And the error flag 

In respective disk drive status 
Is disk drive ready? 

YES—read BAM 

Get number of current disc drive 
And respective disc drive status 
Back to calling routine 


C63D A5 68 
C63F DO 28 
C641 A6 7F 
C643 56 1C 
C645 90 22 
C647 AQ FF 
C649 8D 98 02 
C64C 20 OE DO 
C64F AO FF 
C651 C9 02 
C653 FO OA 
C655 C9 03 
C657 FO 06 
C659 C9 OF 
C65B FO 02 
C65D AO 00 
C65F2 A6 7F 
C661 98 

C662 95 FF 
C664 DO 03 
C666 20 42 DO 
C6692 A6 TF 
C66B BS FF 
C66D 60 
[CACO/D768/EE68] 


Copy file name from input buffer to directory buffer 
(The Accumulator has to contain the length of the name in X, the 
in the string in Y and the number of the directory buffer) 


position 
C66E 48 
C66F 20 
C672 20 
C675 68 
C676 38 
C677 ED 
C6é7A AA 
C67B FO 
C67D 90 


A6 C6 


88 C6 


4B 02 


OA 
08 


PHA 
JSR 
JSR 
PLA 
SEC 
SBC 
TAX 
BEQ 
BCC 


SC6A6 


$C688 


$024B 


$C687 
$C687 


Store length of file name 
Postition of name in inputstring 
Determine and copy name in buffer 
Recall length of file name 

Length of copied file name 

Verify with maximum lengths 

of file entry (16) 

Is entry fulfilled? 

No-file name smaller than place? 
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LDA #SA0 
STA ($94),Y 
INY 

DEX 

BNE $C681 
RTS 


1571 Internals 


Yes-fill rest of the characters 
of filename with "shift space’ 
Buffer indicator to nxt char pos. 
Amount of characters to fill 
File named filled? 

YES—back to calling routine 


of the input buffer and the current data buffer 


00 


00 


02 


02 


TYA 
ASL 
TAY 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
INY 
BEQ 


A 


$0099,Y 


$94 


$O09A,Y 


$95 
#500 


$0200,X 
($94),Y 


SC6A5 


$0276 
$C697 


Double the number 

of current buffer 

(Table contains 2-byte indicator 
Get address of buffer (Low-byte) 
& set in indicator of dir. buffer 
Get address of buffer (High-byte) 
& set in indicator in dir. buffer 
Delete indicatr on bufferposition 
Get byte from input buffer 

And copy in current buffer 

Data buffr indicator to next page 
Data buffer full? 

NO-raise indicator input buffer 
Verify w/lengths of comnd strings 
Last character reached? 

YES—back to calling routine 


C67F A9 AO 
c6sit 91 94 
C683 C8 
C684 CA 
C685 DO FA 
C6872 60 
[C672] Copy 
C688 98 
C689 OA 
C68A Ag 
C68B B9 99 
C68E 85 94 
C690 BO 9A 
C693 85 95 
C695 AO 00 
c6971 BD 00 
C69A 91 94 
C69C CB 
C69D FO 06 
C69F E8 
C6A0 EC 76 
C6A3 90 F2 
cé6éa5+ 60 
[C502/C66F] 
Search length of 
C6A6 AQ 00 
C6A8 8D 4B 
C6AB 8A 
C6AC 48 
Cé6éAD! BD 00 
C6BO C9 2c 
C6B2 FO 14 
C6B4 C9 3D 
C6B6 FO 10 
C6B8 EE 4B 
C6BB_ E8 
C6BC AQ OF 
C6BE CD 4B 
C6Cl 90 05 
C6C3. EC 74 
C6C6 90 ES 
c6c8? 8E 76 
C6CB 68 
C6Ccc AA 
C6CD 60 


02 


02 


02 


02 


02 


02 


file name in input buffer (Start position in X) 


LDA 
STA 
TXA 
PHA 
LDA 
CMP 
BEQ 
CMP 
BEQ 
INC 
INX 
LDA 
CMP 
BCC 
CPX 
BCC 
STX 
PLA 
TAX 
RTS 


#$00 
$024B 


$0200,X 


#$2C 
SC6C8 
#$3D 
SC6C8 
$024B 


#S0F 

$024B 
$C6C8 
$0274 
SC6AD 
$0276 


Indicator on length of name 
Delete 

Get startposition in input buffer 
And store 

Get character of name 

And verify with ',' 

Indentical? 

NO—verify with '='! 

Identical? 

NO-raise length of file name 

Set buffer indicator to next char 
Verify lengths of current name 
with maximum lengths of file name 
Current file name to big? 
NO-verify position w/endof string 
Is end of input string reached? 
YES—store length of file name 

& recall indicator to start pos. 
And set 

Back to calling routine 
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a 


[ECF2] 
Read file entry from directory 


C6CE AS 83 LDA $83 
C6D0 48 PHA 

C6D1 A5 82 LDA $82 
C6D3 48 PHA 

C6D4 20 DE C6 JSR $C6DE 
C6D7 68 PLA 

C6D8 85 82 STA $82 
C6DA 68 PLA 

C6DB_ 85 83 STA $83 
C6DD 60 RTS 
[C6D4] 

Establish directory for output to 
C6DE A9 11 LDA #$11 
C6EO 85 83 STA $83 
C6E2 20 EB DO JSR $DOEB 
C6E5 20 E8 D4 JSR $D4E8 
C6E8 AD 53 02 LDA $0253 
C6EB 10 OA BPL SC6F7 
C6ED AD 8D 02. LDA $028D 
C6FO DO OA BNE S$C6FC 
C6F2 20 06 C8 # £JSR $C806 
C6F5 18 CLC 

C6F6 60 RTS 

C6F7! AD 8D 02. LDA $028D 
C6FA FO 1F BEQ $C71B 
cerc! cE 8D 02 DEC $028D 
C6FF DO OD BNE $C70E 
C701 CE 8D 02. DEC $028D 
C704 20 8F C3. JSR $C38F 
C707 20 06 C8 #£4JSR $C806 
C70A 38 SEC 

C70B 4C 8F C3. JMP $C38F 
c70E! A9 00 LDA #$00 
C710 8D 73 02 #£STA $0273 
C713. 8D 8D 02. + STA $028D 
C716 20 B7 C7  #£24JSR $C7B7 
C719 38 SEC 

C71A 60 RTS 

c71B! a2 18 LDX #$18 
C71D AO 1D LDY #$1D 
C71F Bl 94 LDA ($94),Y 
C721 8D 73 02 #£STA $0273 
C724 FO 02 BEQ $C728 
C726 A2 16 LDX #$16 


Current active secondary address 
save | 

Number of current active channel 
Save 

Get file entry 

Number of channel 

Restore 

End previous secondary address 
Set again 

Back to calling routine 


buffer 

Secondary address 17 

Determine 

Open channel 

Set indicator to current buffer 
Get flag for file entry 

Was entry found? 

NO-flag for directory disc drives 
Directory of both disc drives? 
NO-get 'blocks free' and write 

In buffer 

Back to calling routine 

Check flag for directory drives 
Directory of both disc drives 
YES—set flag to ‘no’ 

Was flag not set right? 
NO—correct flag 

Change to other disc drive 

Get 'blocks free' write in buffer 
And switch back to 

Previous disk drive 

Memory for block number 

Delete 

Delete flag: 'both disc drives’ 
Develope title of directory 

Flag for 'more entries' 

Back to calling routine 

Length of directory line (24) 

Set byte indicator for filelength 
Get amount of blocks (high-byte) 
and store 

Is block number >256 & 3 digit? 
YES—decrease length of characters 
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c7281 
C729 
C72B 
C72E 
C730 
C732 
C734 
C736 
C737 
C739 
C73B 
c73c3 
C73F 
C741 
C742 
C743 
C745 
C747 
c74al 
C74B 
C74D 
Cl4E 
C751 
C754 
C755 
C758 
C75B 
C75C 
C75F 
C762 
C763 
C764 
C766 
C768 
c76B1 
C76D 
C770 
C771 
c7731 
C775 
C778 
C779 
C77A 
C77C 
C7TE 
C780 
c7831 


88 
Bl 
8D 
EO 
FO 
C9 
90 


9D 
E8 


02 


C7 


02 


FE 
02 


FE 
02 


FE 
02 


02 


02 


02 


02 


($94),Y 
$0272 
#$16 
$C73C 
#S0A 
$C73C 


#564 
$C73C 


SCTAC 
($94) ,¥Y 


A 

SC74A 
#$3C 
$02B2,X 


#S0F 


SFECS,Y 
$02B1,X 


SFECO,Y 
$02B1,X 


SFEBB, Y 
$02B1,X 


$C76B 
#S2A 
$02B2,X 
#SA0 
$02B1,X 


#$12 
($94),Y 
$02B1,X 


#503 
$C773 
#522 
$02B1,X 


Buffer indicator for block # 

Get lo-byte for block number 

And store 

Verify w/value for short length 
Is 3 digit block number there? 
Verify amount of blocks with ten 
Block number smaller (one digit) ? 
NO—-shorten rest line 

Verify block number with 100 

Is block number smaller(2 digit) ? 
NO—-shorten rest line 

Delete buffer for directory 

Get byte for file type 

And store 

Get bit 6 as flag file lock 

Is file locked? 

YES-—char for file locking '<! 
Write behind file type 

Recall file type 

Insulate file type 

And its short name in directory 
3rd letter of file short name 
Get and write in buffer 

Shorten length of directory line 
2nd letter of file short name 
Get and write in buffer 

Shorten name of directory line 
lst letter of file short name 
Get and write in buffer 

Shorten length of 

Directory 

Is the file closed properly? 
NO—'*' as notification 

Set before file short name 

One empty character 

Insert 

& shorten length of dir. line 
Set buffer position of file name 
Get character of file name 

And write in directory buffer 
Shorten length of directory line 
Lower buffer indicator 

Verify with end value 

All chars of name taken over? 
YES—-set "before name" 

Set 

Raise indicator in directory line 
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#$20 
$C793 


$02B1,X 


#522 
$0793 
#SA0 
$C783 
#522 


$02B1,X 


#520 
SC7AT 
#S7F 


$02B1,X 
$02B1,X 


$C798 
$C4B5 


Check to maximum value 

End of buffer reached? 

NO-get character from file name 
And verify with " 

Identical? 

NO—verify with 'shift space' 
Identical? 

YES-then replace with " 

(at end of data name) 

Set filename indicator to next 
byte and verify with end value 
End of file name reached? 
NO-value f/bit 7(reverse) deleted 
Get character of directory line 
And switch reverse off 

Always jump to $C798 

Get next entry 

Flag for 'more entries' 

Back to calling routine 


Delete buffer for data name with empty character 


C784 EO 20 
C786 BO OB 
C788 BD Bl 02 
C78B C9 22 
C78D FO 04 
C78F C9 AO 
C791 DO FO 
C7932 AQ 22 
C795 9D Bl 02 
C798 E8 

c7991 FO 20 
C79B BO OA 
C79D AQ 7F 
C79F 3D Bl 02 
C7A2 9D Bl 02 
C7A5 10 Fl 
C7A71 20 BS C4 
C7AA 38 

C7AB 60 
[C73C/C7BD/C806] 
C7AC AO 1B 
C7AE A9 20 
c7B01 99 BO 02 
C7B3 88 

C7B4 DO FA 
C7B6 60 

C7B7 20 19 Fl 
C7BA 20 DF FO 
C7BD 20 AC C7 
C7CO AQ FF 
C7Cc2. 85 6F 
c7c4 AG TF 
C7C6 8E 72 02 
C7C9 AQ 00 
C7CB 8D 73 02 
C7CE A6 F9 
C7D0 BD EO FE 
C7D3. 85 95 
C7D5 AD 88 FE 
C7D8 85 94 
C7DA AO 16 
C7DC Bl 94 
C7DE C9 AO 
C7EO DO OB 


LDY 
LDA 
STA 
DEY 
BNE 
RTS 
JSR 
JSR 
JSR 
LDA 
STA 
LDX 
STX 
LDA 
STA 
LDX 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
CMP 
BNE 


#$1B 
#$20 


$02B0,Y 


SC7BO 


$F119 
SFODF 
SCTAC 
#SFF 
S6F 
STF 
$0272 
#$00 
$0273 
SF9 


SFEEO, X 


$95 
SFE88 
$94 
#$16 


($94) ,¥Y 


#SA0 
SC7ED 


Length of directory line (27) 
Empty character as delete value 
Delete buffer position 

Set buffer indicator to next byte 
Buffer deleted? 

YES-return to calling routine 
Set pointer to BAM 

Read BAM from diskette 

Clear buffer for directory line 
Initialize 

temporary storage 

Write number of current drive 

as two-byte value (as in block #) 
in directory buffer 

Directory buffer 

Get current buffer number 

Get buffer address (high-byte) 
and save it 

Take pos. of diskname as lo-byte 
of buffer address 

Length of diskette name 

Get character of name 

Compare with 'Shift Space' 

Is diskette name at an end? 
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LDA 


#531 


-byte $2C 


LDA 
CMP 
BNE 
LDA 
STA 
DEY 
BPL 
LDA 
STA 
LDA 
STA 


($94),Y 


#SA0 
SC7ED 
#520 


$02B3,Y 


SC7E5 
#$12 
$02B1 
#$22 
$02B2 
$02C3 
#$20 
$02C4 
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YES—Dummy for test after ('1') 
Jump two bytes 

Get char from directory entry 
Compare with 'Shift Space' 

Is entry to an end? 

YES—Transfer blank character into 
buffer and set buffer pointer 

to next byte 

End of buffer reached? 

YES—Code for 'Reverse On! on 

Set line beginning in buffer 

Put quotation marks before and x 
after the diskette 

name 

Write space in 

buffer 

return from this subroutine 


line with 


JSR 
LDY 
LDA 


DEY 
BPL 
JMP 


SC7AC 
#S0B 


$C817,Y 
STA $02B1,Y 


SC80B 
SEF4D 


"Blocks free,'! 


Clear buffer for directory line 
Set linelength 

Get char from 'Blocks Free'string 
and write into buffer 

Set buffer pointer to next byte 
Line ready? 

YES—Get number of free blocks 


C7E2 AQ 31 
C7E4 2c 

c7E5! B1 94 
C7E7 C9 AO 
C7E9 DO 02 
C7EB A9 20 
C7ED2 99 B3 02 
C7FO 88 

C7F1 10 F2 
C7F3 AQ 12 
C7F5 8D Bl 02 
C7F8 A9 22 
C7FA 8D B2 02 
C7FD 8D C3 02 
C800 A9 20 
C802 8D C4 02 
C805 60 
[C6F2/C707] 
Set up closing 
C806 20 AC C7 
C809 AO OB 
c80B! B9 17 C8 
C80E 99 Bil 02 
C811 88 

C812 10 F7 
C814 4C 4D EF 
C817 42 4c 4F 
C81E 46 52 45 


43 4B 
45 2E 


53 20 


‘BLOCKS ! 
"FREE. '! 


[Origin through routine C146] 
Routine for Scratch command 


C823 
C826 
C829 
C82c 
C82E 
C830 
C833 
c835t 
C838 
C83A 
C83c 
C83E 
C840 


20 
20 
20 
AQ 


98 C3 
20 C3 
CA C3 
00 
86 
9D C4 
3D 
B7 DD 
33 
00 
94 
40 
2B 


JSR 
JSR 
JSR 
LDA 
STA 
JSR 
BMI 
JSR 
BCC 
LDY 
LDA 
AND 
BNE 


$C398 
$C320 
SC3CA 
#$00 
$86 
$C49D 
$C872 
SDDB7 
SC86D 
#$00 


($94) ,¥Y 


#$40 
SC86D 


Chk if cmd is limited/filetype 
Get drive # from command string 
Initialize drive 

Set back counter for number of 
deleted files 

Get first file entry 

Entry found? 

YES—Test file for validity 

Has file been closed properly? 
YES~Pointer to filetype position 
Get filetype from directory 

Test bit6 as flag f/scratch prot. 
Is the file ready for scratching? 
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C842 20 B6 C8 JSR SC8B6 
C845 AO 13 LDY #$13 
C847 Bl 94 LDA ($94),Y 
C849 FO OA BEQ $C855 
C84B 85 80 STA $80 
C84D C8 INY 

C84E Bl 94 LDA ($94),Y 
C850 85 81 STA $81 
C852 20 7D C8 JSR $C87D 
C855 AD 78 02. LDA $0278 
C858 A9 20 LDA #$20 
C85A 35 E7 AND $E7,X 
C85C DO OD BNE SC86B 
C85E BD 80 02. LDA $0280,X 
C861 85 80 STA $80 
C863 BD 85 02. LDA $0285,X 
C866 85 81 STA $81 
C868 20 7D C8 JSR $C87D 
cs86B! £6 86 INC $86 
C86D2 20 8B C4. JSR $C48B 
C870 10 C3 BPL $C835 
c8721 as 86 LDA $86 
C874 85 80 STA $80 
C876 AQ 01 LDA #$01 
C878 AO 00 LDY #$00 
C87A 4C A3 Cl JMP $C1A3 
(C852/C868/DC1B] 

Pursue sectors onhand and free up 
C87D 20 5F EF JSR SEFSF 
C880 2075 D4 JSR $D475 
C883 2019 Fl JSR $F119 
C886 BS A7 LDA $A7,X 
C888 C9 FF CMP #SFF 
C88A FO 08 BEQ $C894 
C88C AD F9 02. LDA $02F9 
C88F 09 40 ORA #840 
C891 8D F9 02. STA $02F9 
c8942 AQ 00 LDA #$00 
C896 20 C8 D4 JSR SD4C8 
C899 2056 Dl JSR $D156 
c89c 85 80 STA $80 
C89E 2056 Dl JSR $D156 
C8A1 85 81 STA $81 
C8A3 AS 80 LDA $80 
C8A5 DO 06 BNE $C8AD 


NO—Delete entry 

Set pointer to side-sector entry 
Get track # of first side-sector 
Side-sector onhand? 

YES-Save track number and 

get corresponding 

sector number as entry 

and Save it 

Pursue and free up blocks 

Entry number 

Check Flag for 'File not closed' 
in filetype identifier 

Is entry a '*' file? 

NO-Set track of first sector 

as current track number 

Take up sector number of 

file data 

Follow and free up file blocks 
Increment # of scatched files 
Get next file entry 

Found it? 

NO-—Give # of deleted files to 
return message 

Number of return message 

Value for sector number 

Display '01 Files Scratched’ 


in BAM 

Free up first and current blocks 
Read next sector 

Get number of BAM channel 

Get number of 2nd buffer 
Compare with 'Buffer free’ 

Is buffer allocated? 

NO-Set flag in pointer for 

"BAM illegal for writing 

to diskette' 

Set buffer pointer 

to beginning of sector 

Get byte from sector and save 
track of next sector 

Get byte from sector and set 
number of next sector 

Get track number of next sector 
Is the current sector the last? 
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SEEF4 
$D227 
SEFSF 
$D44D 


1571 Internals 


YES-Write BAM to diskette again 
Re-close channel and end 

Free up sector in BAM 

Read next sector and 

continue 


File entry in filetype of directory marked as scratched 


C8A7 20 F4 EE 
C8AA 4C 27 D2 
C8Ap! 20 5F EF 
C8BO 20 4D D4 
C8B3 4C 94 C8 
[C842/D8D3/EDDF] 
C8B6 AO 00 
C8B8 98 

C8B9 91 94 
C8BB 20 5E DE 
C8BE 4C 99 D5 


LDY 
TYA 


#500 


($94),Y 


SDESE 


Set buffer pointer to filetype 
Take value for 'DEL' filetype 
in entry and adjust 

directory 

Wait until writing is done 


[C909/Origin through 
Backup command routine (not possible with single drive) 


C8Cl1 
C8C3 


[A780] 


AQ 


31 


4C C8 Cl 


LDA 
JMP 


Routine for 1541 New 


C8C6 
C8c8 
C8CB 
C8CD 
C8D0 
C8D2 
C8D5 
C8D7 
C8DA 
C8DC 
C8DE 
csEot 
C8E2 
C8E4 
C8E6 
C8E8 
C8EA 
C8EC 
c8EFt 


AQ 
8D 
A9 
8D 
A9 
8D 
AQ 


4C 
60 


4C 
00 06 
C7 
O01 06 
FA 
02 06 
03 
D3 Dé 
TF 
E0 
03 
03 
FC 
02 
07 
03 


LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
JSR 
LDA 
ORA 
STA 
LDA 
BMI 
CMP 
BCC 
LDA 
LDX 
JMP 


routine C146] 


#$31 


Display 
'31 Syntax Error' message & rturn 


command (format diskette) 


#S$4C 
$0600 
#$C7 
$0601 
#SFA 
$0602 
#$03 
SD6D3 
S7F 
#SEO 
$03 
$03 
SC8EO 
#$02 
SC8EF 
#$03 
#$00 
SE60A 


-NO—Error number for 


JMP-pointer for format routine 
in buffer address $0600-S0602 
set for disk controller, 

(SFAC7), re-calling its own sub- 
program for every 

new track 

Number of buffer used 

Track / sector number to jobloop 
Get current drive number 


Tie in jobcode for buffer program 


(jump to pointer) 

and get return message 

Wait until diskette is formatted 
Compare return message with 'OK'! 
Format ended error-free? 

'File' 

Go to buffer 0 and 

display message 

Return from this subroutine 
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[Origin through C146] 
COPY command routine (file copier) 


C8FO AQ EO LDA #SE0 Set up all buffers 

C8F2 8D 4F 02 STA $024F in bit library 

C8F5 20 Dil FO JSR S$FOD1 Set track / sector number for BAM 
C8F8 20 19 Fl JSR $F119 Determine buffer number of BAM 
C8FB AQ FF LDA #SFF BAM buffer marked with 

C8FD 95 AT STA SA7,X 'free' identifier 

C8FF AQ OF LDA #SOF Free up all channels for cor- 
C901 8D 56 02 STA $0256 responding bit library 

C904 20 E5 Cl JSR $C1E5 Look for ':' in command string 
C907 DO 03 BNE $C90C Found it? 

C909 4¢C Cl C8 JMP $C8C1 NO-error messge:'31 Syntax Error' 
c90ct 20 F8 cl JSR $C1F8 Work with input string 

C90F 20 20 C3 JSR $C320 Get / set drive number 

C912 AD 8B 02 LDA $028B Get command syntax flag and get 
C915 29 55 AND #$55 flags for filenames 

C917 DO OF BNE $C928 Are several filenames onhand? 
C919 AE 7A 02 LDX $O27A YES—Pos. of command target name 
c91C BD 00 02 LDA $0200,X Get character from filename 
C91F C9 2A CMP #S2A Check for '*' wildcard 

C921 DO 05 BNE $C928 Wildcard onhand? 

c9231 a9 30 LDA #$30 YES—Display 

C925 4C C8 Cl JMP $C1C8 *30 Syntax Error' message 

C9282 AD 8B 02 LDA $028B Get command syntax flag 

C92B 29 D9 AND #S$D9 Test flag for wildcard 

C92D DO F4 BNE $C923 Are wildcards onhand? 

C92F 4C 52 C9 JMP $C952 NO-—Copy file 


[Routine not used in 
Initialize Backup- command 


DOS] 


pointer (Command not onhand) 


C932 A9 00 LDA #$00 Clear pointer: 

C934 8D 58 02 STA $0258 Length of a record 

C937 8D 8C 02 STA $028C Number of disk accesses 

C93A 8D 80 02 STA $0280 Track number of target file 
C93D 8D 81 02 STA $0281 Track number of source file 
C940 AS E3 LDA SE3 Value for standard drive 

C942 29 01 AND #S01 Limit declaration to bit 0 and 
C944 85 7F STA S7F pointer for current drive 

c946 O09 O1 ORA #$01 Set back number of current 
C948 8D 91 02 STA $0291 directory sector | 
C94B AD 7B 02 LDA $027B Copy position of 2nd parameter in 
C94E 8D 7A 02 STA S$O27A first place 

c951 60 RTS Return from this subroutine 
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[C92F] Copy file(s) 


JSR 
LDA 
CMP 
BCC 
LDA 
CMP 
BNE 
LDA 
CMP 
BNE 
LDA 
CMP 
BNE 
JSR 
LDA 
STA 
JSR 
JSR 
BEQ 
CMP 
BNE 
LDA 
JSR 
LDA 
STA 
LDA 
STA 
LDA 


Look for file entry in directory 
Number of source files named 
Individual files 

Less than 3 files named? 
YES—Compare drive # of targetfile 
with sourcefile drive 

Copy only one diskette? 
YES-—Compare # of target files in 
directory with source files 
Identical? 

YES—Test # of appropriate dir 
sectors with those on sourcefile 
Should entry be overwritten? 
YES—Look for file entry in dir. 
Set pointer to first 

filename 

Open file for reading and 

get filetype 

Is file entry a relative file? 


NO-Check for 'PRG' identifier 
Identical? 

Display '64 File Type Mismatch!’ 
message 

Set 


internal write channel (18) 
Transfer # of allocated internal 
channel in read channel 

Set 'Channel free' flag 

in table 

Copy lst sourcefile to targetfile 
Pointer of second filename to 
next file 

End command; display 'OK' 

Copy file 

End command; display 'OK' 


C952 20 4F C4 
C955 AD 78 02 
C958 C9 03 
C95A 90 45 
C95C AS E2 
C95E C5 E3 
C960 DO 3F 
C962 AS DD 
C964 C5 DE 
C966 DO 39 
C968 AS D8 
C96A C5 D9 
C96C DO 33 
C9I6E 20 CC CA 
C971 A9 O01 
C973. 8D 79 02 
C976 20 FA C9 
C979 20 25 Dl 
C97C FO 04 
CITE C9 02 
C980 DO 05 
c9s2) ago 64 
C984 20 C8 Cl 
c9s71 ao 12 
C989 85 83 
C98B AD 3c 02 
C98E 8D 3D 02 
C991 AQ FF 
C993 8D 3c 02 
C996 20 2A DA 
C999 A2 02 
C99B 20 B9 C9 
C99E 4C 94 Cl 
C9A17 20 A7 C9 
C9A4 4C 94 Cl 
{[C9A1] Copy 
C9A7 20 E7 CA 
COAA AS E2 
C9AC 29 01 
C9AR 85 7F 
C9BO 20 86 D4 
C9B3 20 E4 D6 
C9B6 AE 77 02 


JSR 
LDA 
AND 


individual files 


SCAE7 
SE2 
#501 


See if entry already exists 

Get drive indicator of targetfile 
and take on as number of 

current drive 

Open internal channel for writing 
Enter target file in directory 
Take number of target names as 
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STX 
JSR 
LDA 
STA 
JSR 
JSR 
BNE 


number of source names 

Read directory 

16 (# of internal read channel) 
set as current secondary address 
Open channel 

Get filetype of entry 

Is file a REL file? 

YES-—Copy relative file 

Set flag for last character 
(EOI) and conclude 

copy procedure 

Write byte in target file 

Get byte from source file 


Test EOI (last character) 


flag 

Is flag set? 

YES-—Get filetype 

Is file entry a relative file? 
NO-Write byte in file 

Compare number of target files 
with number of 

source files 

Any more files given? 

Set write channel number (18) 
as current secodnary address 
Close file and channel 


file reading 


LDX 
LDA 
AND 
STA 
LDA 
STA 
LDA 
CMP 


[C99B/C9OF1] 
Copy multiple files 
C9B9 8E 79 02 
C9BC 20 FA C9 
COBF AQ 11 
C9C1 85 83 
C9C3 20 EB DO 
C9C6 20 25 Dl 
C9C9 DO 03 
C9CB 20 53 CA 
cocE! a9 08 
C9DO 85 F8 
C9D2 4c D8 ca 
cop5! 20 9B CF 
cops! 20 35 CA 
C9DB AQ 80 
CODD 20 A6 DD 
C9EO FO F3 
C9E2 20 25 Dl 
CIE5 FO 03 
C9E7 20 9B CF 
COEA! AE 79 02 
CO9ED E8 

COEFE EC 78 02 
COF1 90 Cé 
COF3 AQ 12 
COF5 85 83 
COF7 4C 02 DB 
[C976/C9BC] 
Open channel for 
COFA AE 79 02 
COFD B5 E2 
COFF 29 01 
CAOl 85 7F 
CAO3 AD 85 FE 
CAO6 85 80 
C95C AS E2 
C95E C5 E3 
C960 DO 3F 
C962 AS DD 
C964 C5 DE 
C966 DO 39 
C968 AS D8 
C96A C5 DQ 
C96C DO 33 


$0279 
SE2,X 
#$01 
S7F 
SFE85 
$80 
SE2 
SE3 
SC9A1 
SDD 
SDE 
SC9A1 
SD8 
$D9 
SC9A1 


Get number of filename 

Establish corresponding drive # 
and save as 

current drive 

Set # of directory track (18) 

as current track 

YES—Compare drive # of targetfile 
with sourcefile drive 

Copy only one diskette? 
YES—Compare # of targetfiles in 
directory with source files 
Identical? 

YES-—Test # of matching directory 
sector against sourcefile 

Should entry be overwritten? 
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CA 
02 


C9 
D1 


Cl 


YES—Look for file entry in dir. 
Set pointer to 

first filename 

Open file for reading 

and get filetype 

Is file entry a relative file? 
NO-Test for 'PRG' identifier 
Identical? 

YES—Display 

'64 File Type Mismatch' message 
Set internal read channel 

(18) 

Transfer # assigned to internal 
channel in read channel 

Set 'Channel free' value 

in table 

Copy lst sourcefile to targetfile 
Pointer to second filename 
Attach next file 

End command and display 'OK' 
Copy file 

End command and display 'OK' 


Test whether entry already exists 
Get drive indicator of targetfile 
and take on as number of 

current drive 

Open internal channel for writing 
Enter target file in directory 
Number of target names (1) 


C96E 20 CC 
C971 AQ 01 
C973. 8D 79 
C976 20 FA 
C979 20 25 
C97C FO 04 
COTE C9 02 
C980 DO 05 
cog2! ao 64 
C984 20 C8 
c9s71 a9 12 
C989 85 83 
C98B AD 3C 
C98E 8D 3D 
C991 AQ FF 
C993 8D 3c 
C996 20 2A 
C999 A2 02 
C99B 20 B9 
C99F 4C 94 
c9ai7 20 AT 
C9A4 4C 94 
[C9A1] 

Copy single 
C9A7 20 E7 
C9AA AS E2 
C9AC 29 O1 
COAE 85 7F 
COBO 20 86 
C9B3 20 E4 
CO9B6 AE 77 
[C99B/C9F1] 
C9B9 8E 79 
CO9BC 20 FA 
COBF AQ 11 
C9C1 85 83 
C9C3 20 EB 
C9IC6 20 25 
C9C9 DO 03 
C9ICB 20 53 
coce! ao og 
C9DO 85 F8 
C9D2 4c D8 
cop51 20 9B 


CA 


C9 
CF 


several files 


STX 
JSR 
LDA 
STA 
JSR 
JSR 


$0279 
SCOFA 
#$11 
$83 
S$DOEB 
$D125 
SC9OCE 
$CA53 
#$08 
SF8 
SC9D8 
SCF 9B 


Number of sourcefiles 

Read directory 

Set 16 (number of internal read 
channels) as current 2ndary addr 
Open channel 

Get filetype from entry 

Is it a relative file? 

YES-—Copy relative file 

Set ‘last character' (EOI) 

flag 

and conclude copy process 

Write byte in target file 
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cops! 20 35 CA JSR $CA35 Get byte from sourcefile 

C9DB AQ 80 LDA #$80 _ - Test EOI (last character) 

C9DD 20 Aé6 DD JSR SDDA6 flag 

C9EO FO F3 BEQ $C9D5 Is flag set? 

C9E2 20 25 Dil JSR $D125 YES-Get filetype 

C9E5 FO 03 BEQ SC9EA Is file entry a REL file? 

C9E7 20 9B CF JSR SCF9B NO-write byte in file 

coral ak 79 02 LDX $0279 Compare sourcefile number 

C9ED_ E8 INX with number 

C9EE EC 78 02 CPX $0278 of sourcefiles 

COF1 90 C6 BCC SC9B9 Any more files left? 

COF3 A9 12 LDA #$12 Set write channel number (8) 
COF5 85 83 STA $83 as current secondary address 
COF7 4C O02 DB JMP S$SDBO2 Close file and channel 
[C976/C9BC] 

Open channel to read file 

COFA AE 79 02 LDX $0279 Get filename number 

C9OFD BS E2 LDA $SE2,X Determine corresponding 

COFF 29 O01 AND #S$01 drive number and save 

CAO1 85 7F STA S7F as current drive number 

CAO3 AD 85 FE LDA SFE85 | Set up # of directory track (18) 
CAO6 85 80 STA $80 as current track 

CAO08 BS5 D8 LDA $D8,X Determine sector of entry; set as 
CAOA 85 81 STA $81 current sector 

CAOC 20 75 D4 JSR $D475 Read sector in buffer 

CAOF AE 79 02 LDX $0279 _ # of file identifier in command 
CA12 B5 DD LDA $DD,X - Get correct pointer frm directory 
CA14 20 C8 D4 JSR $D4C8 position and set buffer pointer 
CA17 AE 79 02 LDX $0279 File indication number of command 
CA1A BS5 £7 LDA SE7,X Get corrspondng filetype identifr 
CA1C 29 07 AND #S$07 and get filetype from that; 
CA1E 8D 4A 02 STA $O24A... save it 

CA21 A9 OO LDA #$00 Clear file record length 

CA23 8D 58 02 STA $0258 pointer 

CA26 20 AO D9 JSR $D9A0 Open file for reading 

CA29 AO O01 LDY #$01 Set puffer pointer 

CA2B 20 25 Dl JSR $D125 Get filetype 

CA2E FO 01 BEQ $CA31 Is file a relative file? 

CA30 C8 INY NO-Buffer pointer to next byte 
CA311 98 TYA _ (track number) 

CA32 4C C8 D4 JMP S$SD4C8 Initialize buffer pointer 
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LDA 
STA 
JSR 
STA 
LDX 
LDA 
AND 
STA 
BNE 
JSR 
BEQ 


Set internal channel number 

for reading 

Read a byte 

and save it 

Get channel number and determine 
channel status 

Detrmin bitflg f/'last byte' (EOI) 
and save it 

End of file? 

NO-—Get filetype 

Is it a relative file? 

NOo— 

Set all corresponding flags 
Return from this subroutine 


[(C9D8/E81B/E839] 
Read a byte from file 
CA35 AQ il 
CA37 85 83 
CA39 20 9B D3 
CA3C 85 85 
CA3E A6 82 
CA40 BS F2 
CA42 29 08 
CA44 85 F8 
CA46 DO OA 
CA48 20 25 Dil 
CA4B FO O5 
CA4D AS 80 
CA4F 20 97 DD 
CA522 60 
[C9CB] 

Copy relative file 
CA53 20 D3 Dil 
CA56 20 CB El 
CA59 AS D6 
CA5B 48 

CA5C AS D5 
CA5E 48 

CASF A9 12 
CA61 85 83 
CA63 20 07 Dil 
CA66 20 D3 Dl 
CA69 20 CB El 
CA6C 20 9C E2 
CAGF A5 D6 
CA71 85 87 
CA73 AS5 D5 
CA75 85 86 
CA77 AQ OO 
CA79 85 88 
CA7TB 85 D4 
CA7D 85 D7 
CATF 68 

CA80 85 D5 
CA82 68 

CA83 85 D6 
CA85 4C 3B E3 


JSR 
JSR 
LDA 
PHA 
LDA 
PHA 
LDA 
STA 
JSR 
JSR 
JSR 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 


STA : 


STA 


Set current drive number 

Get position of last record 
Save position in 

side-sector; 

hold number of corresponding 
side-sector 

Set internal channel for 
writing 

Open channel 

Set current drive number 

Get position of last side-sector 
and read sector in buffer 

Save current pointer at position 
in side-sector 

Save number of 

side-sector 

Clear pointer: 

temporary memory 

Pointer to beginning of record 
Pointer to position in record 
Get number of last side-sector 
and set it 

Get # of last record entry in 
side-sector; save it 

Actualize side-sectors 
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Routine for Rename command 


JSR 
LDA 
AND 
STA 
CMP 
BEQ 
ORA 
STA 
JSR 
JSR 
LDA 
AND 
STA 
LDA 
STA 
JSR 
JSR 
LDA 
CLC 
ADC 
JSR 
JSR 
TAY 
LDX 
LDA 


$C320 
SE3 
#$01 
SE3 
SE2 
SCA97 
#$80 
SE2 
SC44F 
SCAE7 
SE3 
#$01 
STF 
SD9 
$81 
SDE57 
$D599 
SDE 


#503 
$D4C8 
SDF93 


SO27A 
#$10 
SC66E 
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Get drive number 

Establish # of standard drive 
and 

reset 

Compare with last drive number 
Must drive be changed? 

YES-Set bitflag for search of 
both drives 

Search for new name in directory 
Name already there? 

Establish # of standard drive and 
take on as number of current 
drive 

Set number of directory 

sector 

and read sector into buffer; 
Wait until command is executed 
Set directory entry pointer to 
starting position 

of filenames in directory 
Establish buffer pointer 

Get and save number of 

current buffer 

Position of new name in command 
Max. length of filename 

Names in buffer frm commnd string 
Rewrite directory sector 

and wait until executed 

Prepare return message and end 


CA88 20 20 C3 
CA8B AS E3 
CA8D 29 01 
CA8F 85 E3 
CA91 C5 E2 
CA93 FO 02 
CA95 09 80 
ca971 85 F2 
CA99 20 4F C4 
CA9C 20 E7 CA 
CASF AS E3 
CAA1l 29 01 
CAA3 85 7F 
CAA5 A5 D9 
CAA7 85 81 
CAA9 20 57 DE 
CAAC 20 99 D5 
CAAF AS DE 
CAB1 18 

CAB2 69 03 
CAB4 20 C8 D4 
CAB7 20 93 DF 
CABA A8 

CABB AE 7A 02 
CABE A9 10 
CACO 20 6E C6 
CAC3 20 5E DE 
CAC6 20 99 D5 
CAC9 4C 94 Cl 
[C96E/CAE7] 
CACC AS E8 
CACE 29 07 
CADO 8D 4A 02 
CAD3 AE 78 02 
capé! ca 

CAD7 EC 77 02 
CADA 90 OA 
CADC BD 80 02 
CADF DO F5 
CAE1 A9 62 
CAE3 4C C8 Cl 
CAE6! 60 


LDA 
AND 
STA 
LDX 
DEX 
CPX 
BCC 
LDA 


SE8 
#$07 
SO24A 
$0278 


$0277 
SCAE6 


$0280,X 


SCAD6 
#$62 
$C1C8 


See if file entry is onhand 


Get filetype of 2nd name & 
isolate type identifier 

Save as current filetype 

Get starting position of filename 
in command string 

Compare w/start of command string 
More characters in filenames? 
YES-—Get sector number of file 

Was that the last sector? 
YES—Display 

'62 File Not Found' 

Return from this subroutine 
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Compare with two filenames 


[C9A7/CA9C] 
CAE7 20 CC CA 
CAEA! BD 80 02 
CAED FO 05 
CAEF A9 63 
CAFl1 4C C8 Cl 
cara! ca 

CAF5 10 F3 
CAF7 60 


JSR 


LDA $0280,X 


BEQ 
LDA 
JMP 


SCACC 
SCAF4 
#$63 

$C1C8 


SCAEA 


File in directory onhand? 

Get number of first file sector 
Is sector onhand? 

YES—Display 

'63 File exist’ 

Go to next name 

Was that the last filename? 
YES—Return from this subroutine 


[Origin at routine C146] 
Memory-command routine 


CAF8 AD 01 02 LDA $0201 Get second character of command 
CAFB C9 2D CMP #$2D Compare with '-! 

CAFD DO 4C BNE SCB4B Identical? 

CAFF AD 03 02 LDA $0203 YES—Then get fourth character and 
CBO2 85 6F STA S6F set as memory address (low-byte) 
CBO4 AD 04 02 LDA $0204 Get fifth character and save as 
CBO7 85 70 STA $70 memory address (high-byte) 

CBO9 AO OO LDY #$00 Clear buffer pointer 

CBOB AD 02 02 LDA $0202 Get third character of command 
CBOE C9 52 CMP #$52 and compare with 'R! 

CB10 FO OE BEQ $CB20 Should Read command be performed? 
CB12 20 58 F2 JSR $F258 NO-Call has no function (RTS) 
CB15 C9 57 CMP #$57 Compare with 'W' 

CB17 FO 37 BEQ $CBS50 Should Write commnd be performed? 
CB19 C9 45 CMP #S$45 NO—Compare with 'E! 

CB1B DO 2E BNE SCB4B Should program be performed? 

CB1D 6C 6F OO JMP (SOO6F) YES-—Start program 

[CB10] 

Memory-Read command ('M-R'); Read byte from memory 

CB20 Bl 6F LDA (S6F),Y Get byte from given address 

CB22 85 85 STA $85 and save it 

CB24 AD 74 02 LDA $0274 Get length of command string and 
CB27 C9 06 CMP #$06 compare with maximum length 

CB29 90 1A BCC S$CB45 Is the string smaller? 

CB2B AE 05 02 LDX $0205 NO—Get # of bytes to be read and 
CB2E CA DEX adjust (one already read) 

CB2F FO 14 BEQ SCB45 Read any more bytes from memory? 
CB31 8A TXA YES—Balance pointer 

CB32 18 CLC with starting address and then 
CB33 65 6F ADC S6F compute end address of this range 
CB35 E6 6F INC S6F Increment pointer to current byte 
CB37 8D 49 02 STA $0249 Save ending address (low-byte) 
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CB3A AS 6F LDA $6F Take pointer to current memory; 
CB3C 85 A5 STA SA5 use as pointer to error message 
CB3E A5 70 LDA $70 buffer for routine that is 

CB40 85 A6 STA SA6 to follow ($D43A) 

CB42 4C 43 D4 JMP $D443 Set first byte and output flag 
CB452 20 EB DO JSR SDOEB Seek out and open channel 

CB48 4C 3A D4 JMP S$D43A Output more bytes 

CB4B“ A9 31 LDA #$31 Display 

CB4D 4C C8 Cl JMP $C1C8 '31 Syntax Error' 


[CB17/CB59] Memory-Write command ('M-W'); Write in memory 


CB50 B9 06 02 LDA $0206,Y Get byte val from command string 
CB53 91 6F STA (S6F),Y and write into memory 

CB55 C8 INY Turn buffer pointer to next byte 
CB56 CC 05 02 CPY $0205 Compare with value for 'End' 
CB59 90 F5 BCC $CB50 Take any more bytes? 

CB5B- 60 RTS NO-Return from this subroutine 


[Origin at routine C146] 
User-command ('UX'); Start program in DOS buffer 


CB5C AC O01 02 LDY $0201 Get second char of command and 
CB5F CO 30 CPY #$30 compare with '0' 
CB61 DO 09 BNE SCB6C Identical? 


[EBBC] Execute User-command 


CB63 4C 26 80 JMP $8030 YES—Read User-0O command 

CB66 EA NOP Unused space 

CB67 EA NOP left by modifying 

CB68 EA NOP ROM User-routine 

CB69 EA NOP in 1541 drive 

CB6A EA NOP to 

CB6B' EA NOP 1571 User-routine 

cpec! 20 72 CB JSR $CB72 Set address and execute program 
CB6F 4C 94 Cl JMP $C194 End program by 'RTS' 

cB72! 88 DEY Convert ASCII number of command 
CB73 98 TYA into binary 

CB74 29 OF AND #S0OF number; double it 

CB76 OA ASL A (address is 2-byte pointer) 

CB77 A8 TAY and save it 

CB78 Bl 6B LDA (S$6B),Y Get address belonging to command 
CB7A 85 75 STA $75 (low-byte) and save it 

CB7C C8 INY Pointer to next byte of address 
CB7D Bl 6B LDA (S$6B),Y Get high-byte of starting address 
CB7F 85 76 STA $76 and save it 

CB81 4C 2D AA JMP SAA2D Start program 
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'#'-command; Open direct access channel 


[D819] 

CB84 AD 
CB87 85 
CB89 AS 
CB8B 48 
CB8C 20 
CB8F 68 
CB90 85 
CB92 AE 
CB95 CA 
CB96 DO 
CB98 AQ 
CB9A 20 
CB9D 4c 
CBAO? AQ 
CBA2 4c 
cBaA5! ao 
CBA7 20 
CBAA AE 
CBAD EO 
CBAF BO 
CBB1 AQ 
CBB3 85 
CBB5 85 
CBB7 38 
CBB8! 26 
CBBA 26 
CBBC CA 
CBBD 10 
CBBF AS 
CBC1l 2D 
CBC4 DO 
CBC6 AS 
CBC8 2D 
CBCB DO 
CBCD AS 
CBCF OD 
CBD2 8D 
CBD5 AS 
CBD7 OD 
CBDA 8D 
CBDD Ag 
CBDF 20 
CBE2 A6 
CBE4 AD 


8E 02 
TF 
83 


3D C6 


83 
74 02 


OD 
01 
E2 D1 
Fl CB 
70 
C8 Cl 
01 
1G: CC 
85 02 
05 
EF 
00 
6F 
70 


oF 
70 


FQ 
6F 
4F 02 
DA 
70 
50 02 
D3 
6F 
4F 02 
4F 02 
70 
50 02 
50 02 
00 
E2 Dl 
82 
85 02 


LDA 
STA 
LDA 
PHA 
JSR 
PLA 
STA 
LDX 
DEX 
BNE 
LDA 


$O028E 
STF 
$83 


$C63D 


$83 
$0274 


SCBA5 
#$01 
SD1E2 
SCBF1 
#$70 
$C1C8 
#$01 
SCC7C 
$0285 
#$05 
SCBAO 
#$00 
S6F 
$70 


S6F 
$70 


SCBB8 
S6F 
SO024F 
SCBAO 
$70 
$0250 
SCBAO 
S6F 
S024F 
$024F 
$70 
$0250 
$0250 
#$00 
SD1E2 
$82 
$0285 


Set drive number of last job 
as current drive 

Get channel number and 

save it 

Initialize drive 

Re-set channel 

number 

Compare length of command 
string with 1 

Is a desired buffer given? 
NO—Number of buffers needed 
Set up buffer and channel 
Pointer and table initialization 
Display error message -- 

'70 No Channel' 

Pointer to position in buffer 
Get byte from command string 
Get buffer number and compare 
with maximum buffer 

Is the given number allowed (<5)? 
YES—Clear temporary 

storage in 

zeropage 

Shift 'Buffer occupied’ 

in temporary 

memory 

Buffer number 

Is flag in the correct position? 
Compare computed buffer set-up 
with bit table 

Is buffer already occupied? 
NO-Test buffer numbers 8-15 
(only on CBM3030-CBM8250) 

Is buffer free? 

YES—Take buffer bit 

in bit table and 

set up buffer 

The same goes for buffers 8-15 
(there can only be 5 buffers at 
a time) 

Set number of buffers to 1 

and set up buffer and channel 
Current channel number 

Current sector number 
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CBE7 95 AT STA SA7,X Arrange in channel sector table 
CBE9 AA TAX Adjust pointer 

CBEA A5 7F LDA S$7F Give current drive number 

CBEC 95 00 STA $00,X as 

CBEE 9D 5B 02 STA $025B,X jobcode 

CBF11 a6 83 LDX $83 Determine secondary address and 
CBF3 BD 2B 02 LDA $022B,X get pre-arranged internal channel 
CBF6 09 40 ORA #$40 Identify channel 

CBF8 9D 2B 02 STA $022B,X as in an ‘active’ state 

CBFB A4 82 LDY $82 Current channel number 

CBFD AQ FF LDA #S$FF Arrange number of data to be sent 
CBFF 99 44 Q2 STA $0244,Y over channel 

CCO2 AQ 89 LDA #$89 Free up channel for 

CC0O4 99 F2 00 STA SOOF2,Y reading/writing 


CCO7 BS A7 00 
CCOA 99 3E 02 


LDA $00A7,Y 
STA $023E,Y 


Get buffer number 
Set as characters to be given 


CCOD OA ASL A Double number 

CCOE AA TAX (table has 2-byte values) 

CCOF AQ Ol LDA #$01 Set buffer pointer to beginning 

cCC11 95 99 STA $99,X of buffer 

CC13 A9 OF LDA #SOE note directory access identifier 
CC15 99 EC 00 STA SOOEC,Y in filetype table 

CC18 4C 94 Cl JMP $C194 Send acknowledgement and end it 


[Origin at Routine C146] 
Routine for Block command 


CC1B AO O00 LDY #500 Set start position in input buffr 
CC1D A2 00 LDX #$00 Clear pointer to # of parameters 
CC1F AQ 2D LDA #$2D Set '-' as character to be sought 
CC21 20 68 C2 JSR $C268 Process input string 

CC24 DO OA BNE $CC30 Character found? 

cc26! ag 31 LDA #$31 NO-Display 

CC28 4C C8 Cl JMP $C1C8 '31 Syntax Error' 

CC2B2 AQ 30 LDA #$30 Display 

CC2D 4C C8 Cl JMP $C1C8 "30 Syntax Error' 

cc301 ga . TXA Number of parameters found 

CC31 DO F8 BNE $CC2B Any other givens found? 

CC33 A2 05 LDX #$05 YES-Set pointer in input buffer 
CC35 B9 00 02 LDA $0200,Y Get third character from buffer 
cc38! pp 5p cc CMP $CC5D,xX and compare with Block command 
CC3B FO 05 BEQ $CC42 Is there a Block command? 

CC3D CA DEX NO-Set pointer to next command 
CC3E 10 F8 BPL $CC38 Already compared w/other cmds? 
CC40 30 E4 BMI $CC26 YES—Jump to $CC26 | 

cc421 ga TXA Block command number 
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Save 'Extended command! 

flag 

Get command parameters & test 
Repeat command number and 


CC4E OA ASL A double it 

CC4F AA TAX (2-byte pointers in addr. table) 
cc50 BD 64 CC LDA $CC64,X Get / save starting address of 
cc53 85 70 STA $70 command (low-byte) 

CC55 BD 63 CC LDA $CC63,X Get high-byte and take 

cc58 85 6F STA S6F up in pointer 


CC5A 6C 6F OO JMP (SOO6F) Start Block command 


[CC38] Command codes of Block command 
CC5D 41 46 52 57 45 50 AY 2. TRY 3 TRE G TW! @ TES 4 NP 
(cC50/CC55] Starting addresses of Block command routines 


cC63 03 CD 
CC65 F5 CC 


$CD03 B-A command 
SCCF5 B-F command 
$CD56 B-R command 
$CD73 B-W command 
SCDA3 B-E command 
SCDBD B-P command 


[CC48/CD5F/CD97] 

Get/set Block command parameters 

CC6F AO 00 LDY #$00 Start. pos.:commandstring search 
CC71 A2 00 LDX #$00 Clear number of found parameters 
CC73 AQ 3A LDA #$3A Set ':' as character for search 
CC75 20 68 C2 JSR $C268 and search in input buffer 

CC78 DO 02 BNE $CC7C Character found? 

CC7A AO 03 LDY #$03 NO-—Buffer pointer to 4th char 
[(CBA7/CC78/CC8F] 


Test Block command parameters 


CC7C BY 00 02 LDA $0200,Y and get character 


CC7TF C9 20 CMP #520 Compare w/blank space ' ' value 
Cc81 FO 08 BEQ SCC8B Identical? 

ccsg3 c9 1D CMP #$1D NO—Test w/value for'Cursor right' 
ccgs5 FO 04 BEQ SCC8B Identical? 

CC87 C9 2C CMP #$2C NO—Compare with comma value 

CcC89 DO 07 BNE $CC92 Identical? 

CC8B2 C8 INY YES—Buffer pointer to next char 
ccsc CC 74 02 CPY $0274 Test against command string value 
CC8F 90 EB BCC $CC7C Pointer to end of input buffer? 
cc91 60 RTS YES—Return from this subroutine 
CC921 20 Al CC JSR $CCA1 Get, compute and set parameters 
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Current number of parameters 


Total number of parameters 


Test with maximum # of parameters 
Too many parameters? 
YES—Jump to $CC2B 


Convert / set Block command parameters from ASCII to binary 


CC95 EE 
cc98 AC 
CC9B EO 
CC9D 90 
CC9F BO 
[CC92] 

CCAl Ag 
CCA3 85 
CCAS 85 
CCA7 85 
CCA9 A2 
CCAB! BQ 
CCAE C9 
CCBO BO 
CCB2 C9 
CCB4 90 
CCB6 29 
CCB8 48 
CCB9 AS 
CCBB 85 
CCBD AS 
CCBF 85 
CCC1l 68 
ccc2 85 
ccc4 cs 
ccc5 cc 
cccs 90 
CCCA2 8C 
cccD 18 
CCCE AQ 
ccpo! gg 
CCD1 EO 
CCD3 BO 
CCD5 B4 
CCD72 88 
CCD8 30 
CCDA 7D 
CCDD 90 
CCDF 18 
CCEO E6 
CCE2 DO 
ccr4+ ag 
CCE5 AE 
CCE8 AS 


00 
6F 
70 
72 
FF 
00 
40 
18 
30 
14 
OF 


70 
71 
6F 
70 


6F 
74 
El 
19 
00 
03 
OF 


6F 


F6 


F2. 


F8 


72 
F3 


77 
72 


02 


02 


02 


CC 


02 


LDA 
STA 
STA 
STA 
LDX 
LDA 
CMP 
BCS 
CMP 
BCC 
AND 
PHA 
LDA 
STA 
LDA 
STA 
PLA 
STA 
INY 
CPY 
BCC 
STY 
CLC 
LDA 
INX 
CPX 
BCS 
LDY 
DEY 
BMI 
ADC 
BCC 
CLC 
INC 
BNE 
PHA 
LDX 
LDA 


#500 
S6F 
$70 
$72 
#SFF 


$0200,Y 


#$40 
SCCCA 
#$30 
SCCCA 
#SOF 


$70 
$71 
S6F 
$70 


S6F 
$0274 
SCCAB 
$0279 
#500 
#503 
SCCE4 


S6F,X 


SCCDO 


SCCF2,X 


SCCD7 


$72 
SCCD7 


$0277 
$72 


Clear range used 

as temporary storage 

for mathematical 

operations 

Pointer to current math register 
Get next char from input buffer 
Compare with ASCII value for '@' 
Is there a character? 

NO-Test value for 'O' 

Is there a number? 

Compute numeric value and 

save it 


Shift value in temp. storage 


S6F-$71 range; move 

one place to $71 so 

that S$6F will be free 

Repeat binary numbers and write 
in temporary memory 

Buffer pointer to next character 
Check w/end position of params 
Entire decimal number read in? 
YES-—Save current buffer pointer 
Initialize add routine 

‘Dummy value' for first run of 
routine 

Test against max. decimal numbers 
Are too many numbers given? 
NO-—Get value of a # in counter 
Decrement number 

Is decimal number zero? 

NO-Get binary of number 

Add it; is binary number > 256 ? 
YES—Turn high-byte and 

increment by one 

Jump to S$CCD7 

Save equiv. binary value(lo-byte) 
Get parameter number 

Enter binary value (high-byte) 
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STA $0280,X in parameter table 


CCED 68 PLA Repeat lo-byte of binary value & 
CCEE 9D 85 02 STA $0285,X save it 

CCF1 60 RTS Return from this subroutine 

CCF2 01 OA 64 Binary values for 1, 10 und 100 


[Origin at routine CC1B] 


Block-Free command ('B-F'); Free block in BAM 


CCF5 20 F5 CD JSR SCDF5 Get track/sector number 

CCF8 20 SF EF JSR SEFSF Set block bit to 'free' 

CCFB 4C 94 Cl JMP $C194 Prepare acknowledgement and end 
CCFE AQ 01 LDA #$01 Unused program set from 

CDOO 8D F9 02 STA SO02F9 CBM 4040 ROM 


[Origin at routine CC1B] 


Block-Allocate command ('B-A') 

CDO3 20 F5 CD JSR S$CDF5 Get track/sector number 

CDO6 AS 81 LDA $81 Get sector number and 

CDO8 48 PHA save it 

CDO9 20 FA Fl JSR SF1FA Look for next free sector in BAM 
CDOC FO OB BEQ $CD19 Is block free? 

CDOE 68 PLA YES—Get number of desired sector; 
CDOF C5 81 CMP $81 Compare with current sector # 
CD11 DO 19 BNE $CD2C Identical? 

CD13 20 90 EF JSR SEF90 Identify BAM sector as allocated 
CD16 4C 94 Cl JMP $C194 Prepare acknowledgement and end 
cp191 68 PLA Adjust stack, clear sector number 
cb1aA! a9 00 LDA #$00 Newly establish 

cb1ic 85 81 STA $81 sector number 

CD1IE E6 80 INC $80 Set track pointer to next track; 
CD20 AS 80 LDA $80 get pointer 

CD22 CD AC 02 CMP $0O2AC Compare w/value of largst track+l 
CD25 BO OA BCS $CD31 Is track number smaller? 

CD27 20 FA Fl JSR SF1IFA YES—Look for next sector 

CD2A FO EE BEQ SCD1A Found it? 

co2c! ao 65 LDA #865 NO-Display 

CD2E 20 45 E6 JSR SE645 '65 No Block! error 

cb311 a9 65 LDA #$65 Display 

CD33 20 C8 Cl JSR $C1C8 '65 No Block! error 
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[CD42/CDA6] 

Test 'B-R' parameters and read sector in buffer 

CD36 20 F2 CD JSR SCDF2 Test & get track / sector number 
CD39 4C 60 D4 JMP $D460 Read sector in buffer 

[CD4A] 

Get byte from buffer 

CD3C 20 2F Dl JSR $D12F Set buffer pointer 

CD3F Al 99 LDA ($99, xX) Get byte 

CD41 60 RTS Return from this subroutine 
[CD56/CD62] 

Read sector from diskette to buffer; initialize pointer 

CD42 20 36 CD JSR $CD36 Get parameter and read sector 
CD45 A9 00 LDA #$00 Determine position of buffr pntr 
CD47 20 C8 D4 JSR $D4C8 Set buffer pointer 

CD4A 20 3C CD JSR $CD3C Get a byte from buffer 

CD4D 99 44 02 STA $0244,Y Amount of data to be transferred 
CD50 AQ 89 LDA #$89 Free up channel for 

CD52 99 F2 00 STA SOOF2,Y reading and writing 

CD55 60 RTS Return fom this subroutine 


[Origin at routine CC1B] 
Routine for Block-Read command ('B-R'); Read sector from diskette 


CD56 20 42 CD JSR $CD42 Read sector and set pointer 
CD59 20 EC D3 JSR $D3EC Output byte from buffer 
CD5C 4C 94 Cl JMP $C194 Prepare return message and end 


[Vector: FFEA] 
Routine for Ul-command (cf. B-R); read sector from diskette 


CD5F 20 6F CC JSR SCC6F Get parameters 

CD62 20 42 CD JSR $CD42 Read sector in buffer 

CD65 B9 44 02 LDA $0244,Y Set # of bytes to be transferred 
CD68 99 3E 02 STA $023E,Y as bytes to be given out 

CD6B AQ FF LDA #SFF Re-initialize number of bytes 
CD6D 99 44 02 STA $0244,Y to be transferred 

CD70 4C 94 C1 JMP $C194 Prepare return message and end 


[Origin at routine CC1B] 
Routine for Block-Write command 


CD73 20 F2 CD JSR S$CDF2 Allocate buffer and open channel 
CD76 20 E8 D4 JSR S$D4E8 Initialize and get buffer 

CD79 A8 TAY pointer 

CD7A_ 88 DEY Pointer to previous character 
CD7B C9 02 CMP #$02 Compare with start of data range 
CD7D BO 02 BCS $CD81 Is pointer correctly set? 
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CD7F AO Ol LDY #$01 
cpsi? a9 oo LDA #$00 
CD83 20 C8 D4 JSR $D4C8 
CD86 98 TYA 

CD87 20 Fl CF JSR SCFF1 
CD8A 8A TXA 

CD8B 48 PHA 

CD8C 20 64 D4 JSR $D464 
CD8F 68 PLA 

CD90 AA TAX 

CD91 20 AE FF JSR SFFAE 
CD94 4¢C 94 Cl JMP $C194 
[Vector: FFEC] 

Routine for U2-command (cf.B-W); 
CD97 20 6F CC JSR SCC6F 
CD9A 20 F2 CD JSR SCDF2 
CD9D 20 64 D4 JSR $D464 
CDAO 4C 94 Cl JMP $C194 


[Origin at routine CC1B] 
Routine for Block-Execute-command 


CDA3 2058 F2 JSR $F258 
CDA6 20 36 CD JSR $CD36 
CDA9 AQ 00 LDA #$00 
CDAB 85 6F STA $6F 
CDAD A6 F9 LDX $F9 
CDAF BD EO FE LDA $FEEO,X 
CDB2. 85 70 STA $70 
CDB4 20 BA CD JSR SCDBA 
CDB7 4C 94 Cl  JMP $C194 
CDBA! 6C 6F 00 JMP (SOO06F) 


YES—Byte valu f/current buff pos. 
Position of buffer pointer 

Get buffer pointer 

Position in buffer 

write byte in buffer 

Double and save 

buffer pointer 

Write sector to diskette 
Repeat buffer number and 

set it 

Re-set buffer pointer 

Prepare return message and end 


Write sector from buffer to disk 


Get parameter from command string 
Test and set parameter 

Write sector to disk 

Prepare return message and end 


("B-E'); read sector and execute 
No function (rts) 

Read sector in buffer 

Set buffer address (low-byte) to 
start-of-buffer 

Get buffer number 

Get hi-byte of buffer address and 
set in pointer at start-of-buffer 
Start program in buffer 

Return at 'RTS' 

Jump to pointer in buffer 


[Origin at routine CC1B] 
Routine for Block-Pointer-command 


CDBD 20 D2 CD JSR $CDD2 
CDCO AS FY LDA $F9 
CDC2 OA ASL A 
CDC3 AA TAX 

CDC4 AD 86 02 LDA $0286 
CDC7 95 99 STA $99,X 
CDC9 20 2F Dil JSR $D12F 
CbDCcC 20 EE D3 JSR S$D3EE 
CDCF 4C 94 Cl JMP $C194 


("B-P'); set buffer pointer 
Allocate buffer and open channel 
Get buffer number 

double (buffer pointer as 2-Byte) 
and save it 

Get new pos. of buffer pointer & 
set as low-byte in buffer pointer 
Get buffer and channel number 

Get byte frm current buffer pos. 
Prepare return msg. and end 
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{[CDBD/CDF2] 

Allocate buffer and open channel 

CDD2 A6 D3 LDX $D3 Get parameter number 

CDD4 E6 D3 INC $D3 Set to next assignment 

CDD6 BD 85 02 LDA $0285,X Get channel number from table 
CDD9 A8 TAY and save it 

CDDA 88 DEY Decrement channel number 

CDDB_ 88 DEY by 2 and compare with 

CDDC CO OD CPY #SOD value for channel 14 

CDDE 90 05 BCC SCDE5 Is the channel number < 15? 
cDEO! a9 70 LDA #$70 NO-Display 

CDE2 4C C8 Cl JMP $C1C8 '70 No Channel! 

cDE5! 85 83 STA $83 Set channel # as 2ndary address 
CDE7 20 EB DO JSR SDOEB and open channel 

CDEA BO F4 BCS SCDEO Channel already open? 

CDEC 20 93 DF JSR S$DF93 NO-Get buffer number and 
CDEF 85 F9 STA SF9 set it 

CDF1 60 RTS Return from this subroutine 


[CD03/CD36/CD73/CD9A] 
Test paramters for valid sector assignment 


CDF2 20 D2 CD JSR $SCDD2 Allocate buffer 

CDF5 A6 D3 LDX $D3 Parameter number 

CDF7 BD 85 02 LDA $0285,X Get byte from temporary storage 
CDFA 29 01 AND #S01 and isolate drive number; take on 
CDFC 85 7F STA S7F as current drive 

CDFE BD 87 02 LDA $0287,X Set number of desired 

CEO1 85 81 STA $81 track 

CEO3 BD 86 02 LDA $0286, xX Take on number of 

CEO6 85 80 STA $80 desired sector 

CEO8 20 SF D5 JSR SD55F Test for valid track and sector 
CEOB 4C 00 Cl JMP $C100 Switch on LED to current drive 
[E255/E338/E436] 

Get record from relative file 

CEOE 20 2C CE JSR S$CE2C Determine # of bytes computed til 
CE11 20 6E CE JSR SCE6E record and sector # of the record 
CE14 A5 90 LDA $90 Get remainder of division &set as 
CE16 85 D7 STA $D7 buffer pointer to start of record 
CE18 20 71 CE JSR SCE71 Get side-sector shown by record 
CE1B E6 D7 INC $D7 Adjust buffer pointer in physical 
CE1D E6 D7 INC $D7 sector to linked bytes 

CE1F A5 8B LDA $8B Get and save number of 

CE21 85 D5 STA $D5 side-sector 

CE23 A5 90 LDA $90 Get remainder of div. & calc. 
CE25 OA ASL A position of sector pointer for 
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CLC 
ADC 
STA 
RTS 


#510 
SD6 


record in computed side-sector 
and 

save it 

Return from this subroutine 


Compute number of bytes up 


D9 CE 
92 
82 
BS 
90 
BB 
91 
04 
90 
OB 
90 


01 
90 
02 
91 
C7 
6F 
oF 
03 
ED CE 
ES CE 
6F 
F2 
D4 


8B 
8B 
06 
8C 
02 
8D 


JSR 
STA 
LDX 
LDA 
STA 
LDA 
STA 
BNE 
LDA 
BEQ 
LDA 
SEC 
SBC 
STA 
BCS 
DEC 
LDA 
STA 
LSR 
BCC 
JSR 
JSR 
LDA 
BNE 
LDA 
CLC 
ADC 
STA 
BCC 
INC 


SCED9 
$92 
$82 
$B5,X 
$90 
SBB, X 
$91 
SCE41 
$90 
SCE4C 
$90 


#$01 
$90 
SCE4C 
$91 
$C7,X 
S6F 
S6F 
$CE57 
SCEED 
SCEES 
S6F 
SCE50 
$D4 


$8B 
$8B 
SCE6D 
$8C 
SCE6D 
$8D 


to record 


Clear temporary memory 

Value in math register 2 

Get channel number (buffer) and 
determine and take on 
appropriate record # (low-byte) 
Get high-byte of record number & 
take it on 

Record number greater than 255? 
NO—Get low-byte of record number 
Is record number = 0? 

NO-—Get record number (low-byte) and 
diminish by 

one; take up new 

value 

Is record number < 1? 

YES—Then decrement hi-byte by one 
Get record length and 

save it 

Test against equal value 

Is the record length the same? 
NO—Add reg. 2 to reg. 1 

Math register times 2 

Current record 

Compute bits 

Pointer in position in Record 
Count up current 

math register by 1l 

Re-set low-byte 

Has a transfer occurred? 
YES—Adjust next byte 

Another transfer occurred frm it? 
YES—Adjust highest byte 

Return from this subroutine 


CE26 18 
CE27 69 
CE29 85 
CE2B 60 
[CEOE] 
CE2C 20 
CE2F 85 
CE31 A6 
CE33 BS 
CE35 85 
CE37 BS 
CE39 85 
CE3B DO 
CE3D AS 
CE3F FO 
ck4it a5 
CE43 38 
CE44 E9 

CE46 85 
CE48 BO 
CE4A C6 
CE4C2 BS5 
CE4E 85 
cE50! 46 
CE52 90 
CE54 20 
cE571+ 20 
CE5A AS 
CE5C DO 
CE5E AS 
CE60 18 
CE61 65 
CE63 85 
CE65 90 
CE67 E6 
CE69 DO 
CE6B E6 
CE6D2 60 
[CE11] 
Division 
CE6E AQ 
CE70 2C 


register by 254 (sector length) 
LDA #5FE 
-byte $2C 


Set value of divisor (254) 
Jump two bytes (bit command) 
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Division of math register by 120 (record entries in side-sector) 
CE71 A9 78 LDA #$78 Set value of divisor (120) 

CE73 85 6F STA S6F and save it 

CE75 A2 03 LDX #$03 Number of bytes per math register 
CE771 B5 8F LDA S$8F,X Recover current | 
CE79 48 PHA contents 

CE7A BS 8A LDA $8A,X Copy range $88-S8A to 

CE7C 95 8F STA S8F,X register 2 

CE7E 68 PLA Contents of previous reg. 2 in 
CE7F 95 8A STA $8A,X range $88-$8A (exchange) | 
CE81 CA DEX Pointer to next byte 

CE82 DO F3 BNE SCE77 Entire register exchanged? 

CE84 20 D9 CE JSR SCED9 YES-—Clear register 1 

ces7! a2 00 LDX #$00 Initialize counter 

ces91 B5 90 LDA $90,X Get byte from reg. 2 & prepare 
CE8B 95 8F STA S8F,X for shifting by one byte 

CE8D_ E8 INX Pointer to next byte 

CE8E EO 04 CPX #$04 Compare with # of register bytes 
CE90 90 F7 BCC SCE89 Entire register shifted? 

CE92 AY 00 LDA #$00 YES—Clear most significant 

CE94 85 92 STA $92 byte 

CE96 24 6F BIT S6F Test divisor 

CE98 30 09 BMI S$CEA3 Is it greater than 128? 

CE9A 06 8F ASL $8F NO—Put bitO frm least signif.part 
CE9C 08 PHP of reg. 2 in carry and save it 
CE9D 46 8F LSR S$8F Re-establish register 

CESF 28 PLP Repeat carry and 

CEAO 20 E6 CE JSR SCEE6 shift in reg. 2 

CEA3! 20 ED CE JSR SCEED Add register 1 to register 2 

CEA6 20 E5 CE JSR SCEE5 Double register 2 

CEA9 24 6F BIT S6F Test divisor 

CEAB 30 03 BMI S$CEBO Is it greater than 128? 

CEAD 20 E2 CE JSR S$CEE2 NO—Take register 24 times 

CEBO! AS 8F LDA $8F Add to previous 

CEB2 18 CLC value in 

CEB3 65 90 ADC $90 reg. 2 and 

CEB5 85 90 STA $90 save result down 

CEB? 90 06 BCC SCEBF Has a transfer occurred? 

CEB9 E6 91 INC $91 YES-Adjust 2nd byte of register 
CEBB DO 02 BNE SCEBF Transfer also a result of this? 
CEBD E6 92 INC $92 YES—-Set highest byte of 

CEBF? A5 92 LDA $92 register 

CEC1 05 91 ORA $91 Combine 2nd byte 

CEC3 DO C2 BNE $CE87 Both bytes 0(register value<256) ? 
CEC5 AS 90 LDA $90 


YES-Get least signif. reg. byte 
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CEC7 38 SEC and pull a divisor 

CEC8 E5 6F SBC S6F from that 

CECA 90 OC BCC SCED8 Transfer occurred? 

CECC E6 8B INC $8B NO—Increment register 1 
CECE DO 06 BNE SCED6 Transfer? 

CEDO E6 8C INC $8C Adjust 2nd byte 

CED2 DO 02 BNE SCED6 Transfer? 

CED4 E6 8D INC $8D Adjust last byte 

CED6? 85 90 STA $90 Set new value 

CED8+ 60 RTS Return from this subroutine 
[CE2C/CE84] 

Clear math register 1 ($8B/$8C/S$8D) 

CED9 AQ 00 LDA #$00 Value which should be 

CEDB 85 8B STA $8B cleared in 

CEDD 85 8C STA $8C math register 

CEDF 85 8D STA $8D when transferred 

CEE1 60 RTS Return from this subroutine 
[CEAD ] 

Multiply math register 2 ($90/$91/$92) four times 

CEE2 20 ES CE JSR S$CEE5 Double register contents 


[(CE57/CEA6/CEE2/CEE6:CEAO] 
Double math register 2 ($90/$91/$92) 


CEE5 18 CLC Value to be shifted = 0 

CEE6! 26 90 ROL $90 Shift value in register and 

CEE8 26 91 ROL $91 shift entire register by 

CEEA 26 92 ROL $92 one bitposition to the left 

CEEC 60 RTS Return from this subroutine 
[(CE54/CEA3] 

Add math register 2 ($90/$91/$92) to math register 1 ($8B/58C/S8D) 
CEED 18 CLC Begin addition 

CEEE A2 FD LDX #S$FD # of bytes in registr(neg. value) 
CEFO! B5 8E LDA $8E,X Get byte from register 1 

CEF2 75 93 ADC $93,X Get value from register 2, & add; 
CEF4 95 8E STA S8E,X store result in register 1 

CEF6 E8 INX Set pointer to next number 

CEF7 DO F7 BNE SCEFO Entire register added? 

CEF9 60 RTS YES—Return from this subroutine 
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[CF17/EBBF ] 

Initialize buffer channel table 

CEFA A2 00 LDX #$00 Start of buffer 0 

ceFc! 8a TXA Channel assignment number (0) 
CEFD 95 FA STA SFA,X Clear channel assignmnt of buffer 
CEFF E8 INX Choose next buffer 

CFOO EO 04 CPX #504 Test against highest-#ed buffer 
CFO2 DO F8 BNE SCEFC All buffers already worked on? 
CFO4 A9 06 LDA #$06 YES—Use buffer 4 for 

CFO6 95 FA STA SFA,X channel 6 (BAM) 

CFO8 60 RTS Return from this subroutine 
[CF1LE/CF7B] 

Test channel number in buffer channel table 

CFO9 AO 04 LDY #$04 Number of buffers 

CFOB A6 82 LDX $82 Number of channels sought 

crop! B9 FA 00 LDA S$OOFA,Y Pre-arranged channel # of buffer 
CF10 96 FA STX SFA,Y Set new number 

CF12 C5 82 CMP $82 Compare old number with new 
CF14 FO 07 BEQ SCF1D Both equal? 

CF16 88 DEY NO-—Go to next buffer 

CF17 30 E1 BMI SCEFA Was that the last buffer? 

CF19 AA TAX NO—Take on old channel number 
CF1A 4C OD CF JMP SCFOD and test it 

cF1p! 60 RTS Return from this subroutine 


[BF5A/D0B7/D0C0/D16A/D180/D18C/D1BB/DB2F/DB7D/DBA2 /E04A/E05D/E072/E078] 
[E18D/E19A/E19D/E2B9/E3B6/E3C8/E439/E451) 
Manage and assign buffer 


CFIE 
CF21 
CF24 
CF26 
CF29 
CF2C 
CF2E 
CF31 
CF33 
CF34 
CF36 
CF37 
CF39 
CF3C 
CF3E 
CF40 
CF43 


20 
20 
DO 
20 
20 
30 
20 
AS 
48 
AS 
48 
AQ 
20 
85 
A9 
20 
85 


09 CF 
B? DF 
46 
D3 Dl 
8E D2 
48 
C2 DF 
80 


81 


O01 
F6 D4 
81 
00 
F6 D4 
80 


JSR 
JSR 
BNE 
JSR 
JSR 
BMI 
JSR 
LDA 
PHA 
LDA 
PHA 
LDA 
JSR 
STA 
LDA 
JSR 
STA 


SCFO9 
SDFB7 
SCF6C 
$D1D3 
$D28E 
SCF76 
SDFC2 
$80 


$81 


#501 
SD4F6 
$81 
#500 
SD4F6 
$80 


Actualize buffer table 

Get status of chosen buffer 

Is buffer free? 

YES-Set buffer of appropriate drv 
Look for buffer 

Buffer been found? 

YES—-Activate buffer 

Save current track 

number 

Save current sector 

number 

Pointer to position in buffer 
Get a byte from buffer and save 
as sector number 

Pointer to position in buffer 
Get byte from buffer and save 
as track number 
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Any more sectors in string? 
YES—at current filetype 

Sector belong to a REL file? 
NO-Test last jobcode 

Was it a write procedure? 
YES—Change buffer status (in/out) 
and continue 

Change buff stat (active/passive) 
Set 'Read sector’ jobcode 
Re-establish current 

sector number 

Re-establish current 

track number; 

continue 

Re-establish current 

sector number 

Re-establish current 

track number 

Change buff stat (active/passive) 
Get buffer number and 

save it; 

wait until job is executed 
Display 


'70 No Channel' error message 


free buffer 


JSR 
JSR 
BNE 
JSR 


Actualize buffer table 

Get number of a buffer 

Is buffer free? 

NO-—Choose another buffer 

Has another buffer been found? 
YES—Activate buffer 

Return from this subroutine 


Toggle buffer from active to passive and back 


CF45 FO 1F 
CF47 20 25 Dl 
CF4A FO OB 
CF4C 20 AB DD 
CF4F DO 06 
CF51 20 8C CF 
CF54 4C 5D CF 
CF572 20 8C CF 
CF5A 20 57 DE 
cF5pD! 68 

CF5E 85 81 
CF60 68 

CF61 85 80 
CF63 4C 6F CF 
cr66! 68 

CF67 85 81 
CF69 68 

CF6A 85 80 
créec! 20 8c cF 
cF6F! 20 93 DF 
CF72 AA 

CF73. 4C 99 D5 
CF762 AQ 70 
CF78 4C C8 Cl 
[E325] 

Look for 

CF7B 20 09 CF 
CF7E 20 B7 DF 
CF81 DO 08 
CF83 20 8E D2 
CF86 30 EE 
CF88 20 C2 DF 
cFsBl 60 
[CF51/CF57/CF6C] 
CF8C A6 82 
CF8E B5 A7 
CF90 49 80 
CF92 95 AT 
CF94 B5 AE 
CF96 49 80 
CF98 95 AE 
CF9A 60 


LDX 
LDA 
EOR 
STA 
LDA 


$82 
SA7,X 
#580 
SA7,X 
SAE, X 
#$80 
SAE, X 


Current channel number 

Get corresponding buffer status 
Change flag for buffer in/out and 
write it back in 

Get number of 2nd buffer and 
switch over 

Write new value in table 

Return from this subroutine 
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over internal channel in buffer 


D1 
C1 
D1 


DD 


LDX 
STX 
JSR 
JSR 
JSR 
BCC 
LDA 
JSR 
LDA 


#$12 
$83 
$D107 
$C100 
$D125 
SCFAF 
#$20 
SDD9D 


Set number of write channel (18) 
as current secondary address 
Look for channel and open 
Current drive's LED on 

Get corresponding filetype 
Relative file? 

YES—Clear 'File not closed' 
flag 

Get current secondary address 
Compare with command channel # 
Is command channel required? 
NO—Jump to SCBBF 


byte into file 


[C9D5/C9E7] 
Write bytes 
CF9B A2 12 
CF9D 86 83 
CFOF 20 07 
CFA2 20 00 
CFA5 20 25 
CFA8 90 05 
CFAA A9 20 
CFAC 20 9D 
cFAF! a5 83 
CFB1 C9 OF 
CFB3 FO 23 
CFB5 DO 08 
(835C/EA48] 
Write 

CFB7 AS 84 
CFB9 29 8F 
CFBB C9 OF 
CFBD BO 19 
CFBF 20 25 
CFC2 BO 05 
CFC4 A5 85 
CFC6 4C 9D 
crc9! po 03 
CFCB 4C AB 
crcE! a5 85 
CFDO 20 Fl 
CFD3 A4 82 
CFD5 4C EE 
CFD8* AQ 04 
CFDA 85 82 
CFDC 20 E8 
CFDF C9 2A 
CFE1 FO 05 
CFE3 A5 85 
CFE5 20 Fl 
cFEs! A5 F8 
CFEA FO 01 
CFEC 60 
CFED! EE 55 
CFFO 60 


D1 


D1 


EO 


CF 


D3 


D4 


CF 


LDA 
AND 
CMP 
BCS 
JSR 


Last secondary address 

Get channel number and test 
against command channel 

Has file channel been chosen? 
Get current filetype 

"REL' or 'USR'? 

NO-Get current file byte & write 
in current buffer 

Is type a relative file? 
YES—Take byte in current record 
Get current filebyte and write 
in buffer 

Get number of current channel 
Get next byte for output 

Get highest channel number (4) 
as command channel number 
Initialize buffer pointer; 

test for end-of-buffer 

Is buffer full? 

NO-Get current data byte and put 
in buffer 

Test flag for last byte (EOI) 
No more data? 

YES—Return from this subroutine 
Clear command mode flag 

Return from this subroutine 
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[(CD87/CFDO/CFES/D19D/D1B0/D1B5/D4A8/D4AD/D4BB/D4C0/D4C5/D74D/D754/D75B] 
[DB73/DB95/DB99/ECBE/ECC3/ECC8/ECCB/ECD1/ECD6/ECE7 /ECEC/ECEF/ECFA/ED00] 
[ED08/ED26/ED2C/ED3D/ED40/ED43/ED5E/CFFD:DD92] 

Write byte in current buffer 


CFF1 48 PHA Save byte 

CFF2 20 93 DF JSR SDF93 Get number of buffer 

CFF5 10 06 BPL SCFFD Is buffer properly set up? 
CFF7 68 PLA NO-Correct stack 

CFF8 A9 61 LDA #$61 Display 

CFFA 4C C8 Cl JMP $C1C8 '61 File Not Open' message 
CFFD2 0A ASL A Double buffer number and 
CFFE AA TAX save it 

CFFF 68 PLA Repeat byte and write 

DOOO 81 99 STA ($99,X) in current buffer 

DOO2 F6 99 INC $99,X Set buffer pointer to next char 
DOO4 60 RTS Return from this subroutine 


[Origin at C146] 
Initialize command routine ('i') 


DOO5 20 Di cl JSR $C1D1 Get parameters 

DOO8 20 42 DO JSR $D042 Read BAM from diskette 

DOOB 4C 94 Cl JMP $C194 Prepare return message and end 
[C64C/D048] 

Initialize current drive 

DOOE 20 OF Fil JSR S$F10F Get channel number and 

DO11 A8 TAY save it 

DO12 B6 A?7 LDX SA7,Y Get corresponding buffer status 
D014 EO FF CPX #SFF Compare with '‘occupied' flag 
DO16 DO 14 BNE $D02C Is buffer free? 

DO18 48 PHA YES-—Save channel number 

DO19 20 8E D2 JSR $D28E Look for buffer and set pointer 
DOIC AA TAX Get buffer number 

DO1D 10 05 BPL $D024 Buffer found? 

DO1F A9 70 LDA #$70 NO—display 

DO21 20 48 E6 JSR SE648 ‘70 No Channel' message 

po241 6g PLA Repeat channel number and 

DO25 A8 TAY save it 

DO26 8A TXA Get buffer number 

DO27 09 80 ORA #S$80 Flag value for buffer active 
DO29 99 A7 O00 STA $O0OA7,Y Write to channel buffer table 
po2c! ga TXA Get buffer number and 

DO2D 29 OF AND #SO0F set flags out 

DO2F 85 F9 STA SF9 Save current buffer number 
DO31 A2 00 LDX #$00 Set current sector 

D033 86 81 STX $81 number 
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DO35 AE 85 FE LDX $FE85 Set number of directory track as 
DO38 86 80 STX $80 current track number 

DO3A 20 D3 D6 JSR $D6D3 Set track/sector for jobloop 
DO3D AQ BO LDA #SBO Jobcode for 'Search sector' 

DO3F 4C E5 A6é JMP SA5C5 Initialize diskette 


[8FE1/907C/C666/D008/D828/E63E/ED87/EE46/EEB1 } 
Read BAM in buffer 


D042 20 D1 FO £4JSR §$FOD1 Clear track number for BAM 

D045 20 13 D3 JSR $D313 Close other drive channel 

D048 20 OE DO JSR SDOOE Initialize drive 

DO4B A6 7F LDX $7F Get current drive number and set 
DO4D A9Y 00 LDA #$00 appropriate flag for 

DO4F 9D 51 02 STA $0251,X "Valid BAM' 

DO52 8A TXA Double drive 

DO53 OA ASL A (number for 2-drive pointer) 
DO54 AA TAX and save it 

DO55 AS 16 LDA $16 Get/save first blockheader ID 
DO57 95 12 STA $12,X character 

DO59 AS 17 LDA $17 Get/save second blockheader 

DO5B 95 13 STA $13,X ID character; take it all up 
DO5D 20 67 A6 JSR $A667 Read BAM from diskette 

DO60 AS FY LDA $F9 Get number of current buffer 
DO62 OA ASL A and double it 

DO63 AA TAX (address held in 2 bytes) 

DO64 AY 02 LDA #502 Arrange lo-byte of buffer address 
DO66 95 99 STA $99,X in buffer table 

DO68 Al 99 LDA ($99,X) Get byte from buffer 

DO6A A6 7F LDX S7F Get current drive number 

DO6C 9D 01 O1 STA $0101,X Store byte as format identifier 
DO6F AY O00 LDA #$00 Clear disk exchange flag &pre-set 
DO71i 4C 1D AA JMP SAA1D "Drive ready' flag 

DO74 EA NOP Unused byte 

{(A83B/AA22/EEF1] 

Compute total number of blocks free 

DO75 20 3A EF JSR SEF3A set buffer addr in pnters $6D/S6E 
DO78 AO 04 LDY #504 Set buffer pntr to begin.of BAM 
DO7A AQ 00 LDA #$00 Initialize 

DO7C AA TAX block counter 

po7D1 18 CLC Get # of free track blocks from 
DOVE 71 6D ADC (S$6D),Y BAM and add to counter 

DO8O0 90 O1 BCC $D083 Has a transfer occurred? 

DO82 E8 INX YES—Increment hi-byte of pointer 
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#$48 
$D083 
#$90 
$DO7D 


S7F 


SO2FC,X 


SA951 


Set buffer pointer to # of blocks 
free to the 

next track; 

jump to sector bitpattern 

Test pntr against pos.of track18 
Pointer points to valu f/track18? 
NO-Test for last track 

Add free blocks to all tracks? 
YES-Save block counter (low-byte) 
Get high-byte of block counter 
Get drive # and save free blocks 
on drive 

Get low-byte of free blocks 
Compute number of 1571 blocks 
Return from this subroutine 


diskette to buffer 


JSR 
JSR 
JSR 
JSR 


SD6DO 
$D0C3 
$D599 
$D137 
$80 

$D137 
$81 


Track/sector number to jobloop 
Give jobcode for 'Read sector’ 
Wait til sector read into buffer 
Get lst byte from buffer &save as 
track of next sector 

Get next byte from buffer,set as 
sector number of next sector 
Return from this subroutine 


D0s32 cs 

DO84 C8 

DO85 C8 

DO86 C8 

DO87 CO 48 
DO89 FO F8 
DO8B CO 90 
DO8D DO EE 
DO8F 48 

DO90 8A 

DO91 A6 7F 
D093. 9D FC 02 
DO96 68 

DO97 4C 51 AQ 
DO9A 60 
[DOAF/DC57]} 
Read sector 
DO9B 20 DO D6 
DOSE 20 C3 DO 
DOA1l 20 99 D5 
DOA4 20 37 Di 
DOA7 85 80 
DOA9 20 37 Dl 
DOAC 85 81 
DOAE 60 
[E2CD] 


Read in given sector 


and sector after that 


DOAF 20 9B DO JSR $DO09B Read sector from diskette 

DOB2 AS 80 LDA $80 Get track 

DOB4 DO O01 BNE $DOB7 Any more sectors onhand? 

DOB6 60 RTS NO—-Return from this subroutine 
DOB7! 20 1E CF JSR $CFIE Lay out another buffer and 
DOBA 20 DO D6 JSR $D6DO parameters of next sector 

DOBD 20 C3 DO JSR $DOC3 Also read into next buffer 
DOCO 4C 1E CF JMP SCFIE Re-activate first buffer 
[DO9E/DOBD/D189] 


Read sector from diskette 
DOC3 AQ 80 LDA #$80 Set up jobcode for 'Read sector! 
DOC5 DO 02 BNE $DO0C9 Jump to $SD0C9 
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Write sector to diskette 


02 
DF 


DS 


D1 


[D1B8/D4B0/DB9C] 
DOoc7 AQ 90 
poc9+ gp 4D 
pocc 20 93 
DOCF AA 
DODO 20 06 
DOD3 8A 
DOD4 48 
DOD5 OA 
DOD6 AA 
DOD7 AQ 00 
DOD9 95 99 
DODB 20 25 
DODE C9 04 
DOEO BO 06 
DOE2 F6 B5 
DOE4 DO 02 
DOR6 F6 BB 
DOR82 68 
DOE9 AA 
DOEA 60 


LDA 
STA 
JSR 
TAX 
JSR 
TXA 
PHA 
ASL 
TAX 
LDA 
STA 
JSR 
CMP 
BCS 
INC 
BNE 
INC 


#$90 
$024D 
SDF 93 


$D506 


Set 'Write sector' 
Save jobcode 


' Get and save current buffer 


number 

Test track/sector numbers 

Repeat buffer number and 

hold onto it 

Double number 

(2-byte values) 

Set back buffer address 
(low-byte) 

Get current filetype 

Test for SEQ file identifier 
Sector belong to a SEQ file? 
Number of laid-out file blocks +1 
Has a transfer occurred? 
YES-High-byte of block pointer +1 
Repeat buffer number and 

set it 

Return from this subroutine 


[81LEB/C6E2/C9C3/CB45/CDE7/D39B/D90E/DE36/E20F/E680/E90A] 
channel for reading 


Open 
DOEB 
DOED 
DOEF 
DOF1 
por3t 
DOFS5 
DOF7 
porgt 
DOFA 
DOFB 
DOFE 
D100 


A5 


83 
13 
02 
OF 
OF 
02 
10 


06 
OF 


02 


LDA 
CMP 
BCC 
AND 
CMP 
BNE 
LDA 
TAX 
SEC 
LDA 
BMI 
AND 
STA 


$83 
#$13 
SDOF3 
#S0OF 
#S0F 
SDOF9 
#$10 


$022B,X 


$D106 
#SOF 
$82 


Get curent secondary address and 
compare w/maximum 2ndary address 
Is address in allowable range? 
Limit 2ndary addresses to 0-15 & 
test for channel 15 

Is command channel communicated? 
YES—-Set secondary address to 16 
(error channel) 

Flag:'Channel not for reading' 
Test channel status 

Is channel in read mode? 
YES--Establish internal channel # 
Set and save as current 

channel number 

Set 'channel open' flag 

Return from this subroutine 
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[8343/CA63/CF9F/DB1B/DC43/E688/EA2F] 

Search for and open channel 


DiO7? AS 83 LDA $83 Get current secondary address and 
D109 c9 13 CMP #$13 compare with maximum value (19) 
D10B 90 02 BCC $D10F Is address in allowable range? 
D10D 29 OF AND #SOF NO-then convert and save 

p10F AA TAX range 

D110 BD 2B 02 LDA $022B,xX Get corresponding channel status 
D113 A8 TAY and save 

D114 OA ASL A Turn status to test bit 6/7 

D115 90 OA BCC $D121 Is flag set for writing? 

D117 30 OA BMI $D123 YES-—is flag set for reading? 
D1191 98 TYA NO-—get channel status again 

D11A 29 OF AND #S0OF Establish pure channel number 
D11C 85 82 STA $82 Set as current channel 

D1I1E AA TAX and save it 

D1iF 18 CLC ' Set 'channel open' flag 

D120 60 RTS Return from this subroutine 
D121! 30 Fé BMI $D119 Is flag for read set? 

D1231 38 SEC YES-set flag:'channel read only' 
D124 60 RTS Return from this subroutine 


[C979/C9C6/C9E2/CA2B/CA48/CF47/CFA5/CFBF/DODB/D3AC/D3C0/DB10/DBDE] 
[E21E/E68E] 
Get current file type 


D125 A6 82 LDX $82 Get current channel number and 
D127 BS EC LDA SEC,X and get appropriate filetype 

D129 4A LSR A Ignore drive number 

D1i2A 29 07 AND #$07 Establish identifier for filetype 
D12C C9 04 CMP #504 and compare w/ REL file code 

D12E 60 RTS Return from this subroutine 


[CD3C/CDC9/D137/D3DE/E01D/E127/E138/E156] 
Get channel and matching buffer number 


D12F 20 93 DF JSR S$DF93 Get current buffer number and 
D132 OA ASL A double it 

D133 AA TAX Save as 2-byte value in pointer 
D134 A4 82 LDY $82 Store as current channel number 
D136 60 RTS Return from this subroutine 


[DOA4/D0A9/D156/D172/D17B/D192/D433/DAAA/DE9A/DE9F/ED67/EDF3/EDF8 ] 
Get byte from current buffer 


D137 20 2F Dil JSR $D12F Set channel and buffer number 
D13A B9 44 02 LDA $0244,Y pointer to end of buffer 

D13D FO 12 BEQ $D151 Is last byte of buffer read? 
D13F Al 99 LDA ($99,X) NO—get byte from buffer 
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48 
BS 
D9 


44 02 


$99,X 
$0244,Y 
$D14D 
#SFF 
$99,X 


$99,X 


1571 Internals 


and save 

Get buffer pointer (low-byte) 

& check against logical buff. end 
End of the buffer reached? 
YES-set buffer pointer to the 
physical end-of-buffer 

and get another data byte 

Set buff pnter to start-of-buffer 
Return from this subroutine 

Get last byte of buffer and reset 
buffer pointer to beginning 
Return from this subroutine 


[C899/C89E/D400/D45C/DCAQ9] 
from file 


Get byte 
D156 20 
D159 DO 
D15B 85 
D15D BQ 
D160 FO 
D162 AQ 
D164 99 
D167 AS 
D169 60 
D16a! 20 
D16D Ag 
DI6F 20 
D172 20 
D175 «C9 
D177 FO 
D179 «85 
D17B 20 
D1I7E 85 
D180 20 
D183 20 
D186 20 
D189 20 
Disc 20 
D18F AS 
p1911 60 
p1921 20 
D195 Ad 
D197 99 
D19A AS 
D19C 60 


37 Dl 
36 
85 
44 02 
08 
80 
F2 00 
85 


1E CF 
00 
c8 D4 
37 Di 
00 
19 
80 
37 Dl 
81 
1E CF 
D3 Dl 
DO D6 
C3 DO 
1E CF 
85 


37 Dl 
82 
44 02 
85 


JSR 
BNE 
STA 
LDA 
BEQ 
LDA 
STA 
LDA 
RTS 
JSR 
LDA 
JSR 
JSR 
CMP 
BEQ 
STA 
JSR 
STA 
JSR 
JSR 
JSR 
JSR 
JSR 
LDA 
RTS 
JSR 


$D137 
$D191 
$85 
$0244,Y 
SD16A 
#$80 
SOOF2,Y 
$85 


SCF1E 
#$00 
$D4C8 
$D137 
#$00 
$D192 
$80 
$D137 
$81 
SCF1E 
$D1D3 
SD6DO 
$D0C3 
SCF1E 
$85 


$D137 
$82 
$0244,Y 
$85 


Get byte from buffer 

Was that the last byte in buffer? 
YES-Save data byte 

Get pointer f/correct buffr range 
Reached the physical end? 

NO-set flag in channel 

status table for 'read' 

Get another data byte 

Return from this subroutine 

Read next logical sector 

Reset 

Buffer pointer 

Get lst byte from sector and test 
against ‘last sector' identifier 
No more sectors on hand? 

NO-—Track number of next sector 
Get second byte from sector 

and store as sector number 

Still a buffer laid out 

Set buffer and drive number 

Track & sector number on jobloop 
Read sector to buffer 

Switch back to previous buffer 
Get another data byte 

Return from this subroutine 

Get byte from buffer 

Get current channel number 

Set # of bytes to be transferred 
Get data byte again 

Return from this subroutine 


ROM - 163 


Abacus Software 


1571 Internals 


ne 


JSR SCFF1 
BEQ $D1A3 
RTS 

JSR $D1D3 
JSR SF11E 
LDA #500 
JSR $D4C8 
LDA $80 
JSR SCFF1 
LDA $81 
JSR SCFF1 
JSR $DOC7 


Write data byte in buffer 

Is buffer full yet? 

NO—return from this subroutine 
Set buffer and drive number 
Get next free sector from BAM 
Set buffer pointer on 

string bytes of sector 

Write track # of next sector in 
string bytes of sector 

Write next sector number into 
sector string bytes 

Write sector to diskette 
Change to next buffer 

Set track and sector # for job 
Set buffer pointer to start of 
data range 


buffer pointer 


STA S6F 
JSR $D4E8 
CLC 

ADC S6F 


[CFC6/D1A3:DA3D] 
Write byte in file 
D19D 20 Fl CF 
D1AO FO O1 
D1A2 60 

D1A32 20 D3 D1 
D1A6 20 IE Fi 
DIA9 AQ O00 
D1AB 20 C8 D4 
DIAE AS 80 
D1IBO 20 Fl CF 
D1B3 AS 81 
D1B5 20 Fl CF 
DIB8 20 C7 DO 
D1BB 20 1E CF 
DIBE 20 DO D6 
Dicl AQ 02 
D1C3 4C C8 D4 
[C623] 

Set current 
D1C6é 85 6F 
D1iC8 20 E8 D4 
D1CB 18 

D1cC 65 6F 
DICE 95 99 
D1DO 85 94 
DID2 60 


to next character 


Save new pointer position 

Set pointer to current buffer and 
add to the new 

pointer value 

Put new value in pointer lo-byte 
and directory buffer pointer 
Return from this subroutine 


[(CA53/CA66/CF26/D183/D1A3/E03C/E31C] 
Get number of drive-assigned buffer 


93 DF 


9B 02 
01 
TF 


JSR S$DF93 
TAX 

LDA $025B,X 
AND #501 
STA S7F 


Determine and save buffer 

number 

Get coresponding jobcode frm tbl 
and from it compute drive number; 
store as current drive 

Return from this subroutine 


D1D3 20 
D1D6 AA 
D1D7 BD 
DIDA 29 
D1IDC 85 
D1IDE 60 
[DCDF ] 

Look for 
DIDF 38 
D1EO BO 


write channel and buffer 


SEC 
BCS S$D1E3 


Set write flag 
Jump to S$D1E3 
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[91D0/CB9A/CBDF/DC48/ECA4/D20F :DC7E, DD13] 


Look for read channel and buffer 


D1E2 18 
D1E3! 08 
D1E4 85 
DIF6 20 
DIE9 20 
DIEC 85 
DIEE A6 
DIFO 28 
DIF1 90 
DIF3 09 
p1iF5! op 
DIF8 29 
DIFA A8 
DIFB AQ 
DIFD 99 
D200 99 
D203 99 
D206 Cé 
D208 30 
D20A 20 
D20D 10 
D20F> 20 
D212 Ag 
D214 4c 
D217! 99 
D21A C6 
D21c 30 
D21E 20 
D221 30 
D223 99 
D226* 60 


D2 . 


D3 


02 


CLC 
PHP 
STA 
JSR 
JSR 
STA 
LDX 
PLP 
BCC 
ORA 
STA 
AND 
TAY 
LDA 
STA 
STA 
STA 
DEC 
BMI 


S6F 
$D227 
$D37F 
$82 
$83 


SD1F5 
#$80 
$022B,X 
#$3F 


#SFF 
$00A7,Y 
SOOAE,Y 
$OOCD,Y 
S6F 
$D226 
SD28E 
$D217 
SD25A 
#$70 
$C1C8 
$OOA7,Y 
S6F 
$D226 


Set read flag 

Save flag 

Number of buffer being sought 
Clear all channels 

Seek & lay out next free channel 
Save channel number 

Get secondary address 

Get read/write flag again 
Should a read channel be opened? 
NO-set 'write' flag and write 
to status table 

Establish and save number of 
internal channels 

Appropriate buffers 

one and two 

freed up 

Third buffer freed up 
Decrement # of buffer sought 
Found enough buffers? 

NO—-look for a free buffer 
Find a buffer? 

NO-free up a buffer 

Error message 

'70 No Channel' displayed 
Buffer number in map table 
Decrement # of buffers sought 
Found enough buffers? 

NO—-look for next buffer 

Found a free buffer? 

YES-Save buffer number 

Return from this subroutine 


[(C8AA/D1E6/D30B/D331/D4DE/D4E5/DACE/DB2 9/DBS5F/E695/EE01} 


Free up channel 


D227. AS 
D229 C9 
D22B DO 
D22D 60 
p22k aé 
D230 BD 
D233 C9 
D235 FO 
D237 29 
D239 85 


83 
OF 
01 


83 
2B 
FF 
22 
3F 
82 


02 


LDA 
CMP 
BNE 
RTS 
LDX 
LDA 
CMP 
BEQ 
AND 
STA 


$83 
#$0F 
$D22E 


$83 
$022B,X 
#SFF 
$D259 
#$3F 
$82 


Get current 2ndary address and 
compare w/value f/command channel 
Is channel 15 active? 

YES—return from this subroutine 
Get current secondary adddress 
Determine proper channel status & 
test against'channel unused'value 
Is channel free? 

NO—calculate channel number 

and save it 
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#SFF 


$022B, X 


$82 
#$00 
SF2,X 
SD25A 
$82 
#501 


$D253 


Store flag value:'channel & 
buffer free' in channel table 
Get current channel number again 
Clear channel status 

flags in channel table 

Free up appropriate buffer 
Current channel number 

Bitflag for 'channel free! 
Decrement channel number 

Is flag in correct position? 
NO-Give bitflag in bit pattern 
Jump to $D24D 

Write flag in bit list of 

the laid-out channel 

Return from this subroutine 


Free up buffer and corresponding channel 


D23B AQ FF 
D23D 9D 2B 02 
D240 A6 82 
D242 A9 00 
D244 95 F2 
D246 20 5A D2 
D249 AG 82 
D24B AQ 01 
p24p! ca 

D24E 30 03 
D250 OA 

D251 DO FA 
D253! op 56 02 
D256 8D 56 02 
p2591 60 
[D20F/D246] 
D25A A6 82 
D25C BS A7 
D25E C9 FF 
D260 FO 09 
D262 48 

D263 AQ FF 
D265 95 A? 
D267 68 

D268 20 F3 D2 
D26B! a6 82 
D26D BS AE 
D26F C9 FF 
D271 FO 09 
D273 48 

D274 AQ FF 
D276 95 AE 
D278 68 

D279 20 F3 D2 
D27c1 a6 82 
D27E BS CD 
D280 C9 FF 
D282 FO 09 
D284 48 

D285 AQ FF 
D287 95 cD 
D289 68 

D28A 20 F3 D2 
D28p+ 60 


LDX 
LDA 
CMP 
BEQ 
PHA 
LDA 
STA 
PLA 
JSR 
LDX 
LDA 
CMP 
BEQ 
PHA 


LDA 


STA 
PLA 
JSR 
LDX 
LDA 
CMP 
BEQ 
PHA 
LDA 
STA 
PLA 
JSR 
RTS 


$82 
SAT,X 
#SFF 
$D26B 


#SFF 
SA7,X 


SD2F3 
$82 
SAE,X 
#SFF 
SD27C 


#SFF 
SAE, X 


$D2F3 
$82 
$CD,X 
#SFF 
$D28D 


#SFF 
SCD,X 


SD2F3 


Get current channel and 

determine buffer number for same 
Compare with ‘buffer free’ 

Is buffer assigned that channel? 
YES-save buffer number and 

free up buffer 

buffer table 

Get buffer number again 

Free up bufer layout 

Number of current channel 

Get corresponding buffer # and 
test against 'not occupied' value 
Is the buffer free? 

NO-Save buffer number 

Free up buffer of 

channel and get 

and current buffer number again 
Buffer in availability map freed 
Get number of current channel 

and corresponding buffer number 
Compare w/'buffer inactive’ value 
Is the buffer used? 

YES-Save buffer number and 

buffer assignment to current 
channel cleared 

Get buffer number again and 

free buffer in availability table 
Return from this subroutine 
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[CF29/CF83/D019/D20A/D21E/DC79/DDOE/FOE7] 
Look for buffer 


D28E 98 TYA Get buffer number 

D28F 48 PHA and save it 

D290 AO Ol LDY #$01 Look for a 

D292 20 BA D2 JSR SD2BA free buffer 

D295 10 0C BPL $D2A3 Found a buffer? 

D297 88 DEY NO-set buffer # to next buffer 
D298 20 BA D2 JSR SD2BA look for another buffer 

D29B 10 06 BPL $D2A3 Found a buffer? 

D29D 20 39 D3 JSR $D339 NO—get free buffer 

D2AO0 AA TAX Save buffer number 

D2A1 30 13 BMI $D2Bé6 Has a buffer been found? 

D2A3> B5 00 LDA $00,X YES—-get last buffer jobcode 

D2A5 30 FC BMI $D2A3 Is job already running? 

D2A7 AS 7F LDA S$7F YES-get current drive number 
D2A9 95 O00 STA $00,X Send return message of job loop 
D2AB 9D 5B 02 STA $025B,X and clear memory for last jobcode 
D2AE 8A TXA Get buffer number and double it 
D2AF OA ASL A (the following addresses are 
D2BO A8 TAY passed in two-byte values) 

D2Bl AQ 02 LDA #$02 Buffr ptr fr start-of-data range 
D2B3 99 99 00 STA $0099,Y Set buffer pointer anew 

D2B6! 68 PLA Re-establish buffer number and 
D2B7 A8 TAY save it 

D2B8 8A TXA Set numer of buffers found 

D2B9_ 60 RTS Return from this subroutine 
[D292/D298) 

Look for free buffer 

D2BA A2 07 LDX #$07 Number of bits per byte -1('BPL') 
p2Bc! B9 4F 02 LDA S$O24F,Y Get bit pattern of map table 
D2BF 3D E9 EF AND SEFE9,X Get corresponding buffer bit 
D2C2 FO 04 BEQ $D2C8 Is the buffer covered? 

D2C4 CA DEX YES—-set buffer countr to next bit 
D2c5 10 F5 BPL $D2BC Are all bits already tested? 
D2C7 60 RTS YES—Return from this subroutine 
p2cs+ B9 4F 02 LDA S$024F,Y Get original byte of map table & 
D2CB 5D E9 EF EOR SEFE9, X corresponding buffer bit; set bit 
D2CE 99 4F 02 STA SO24F,Y and rewrite byte 

D2D1 8A TXA Get number of buffers found 
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Pointer to next catalog byte 
Both of them used? 

NO—calculate 

new buffer number 

Save buffer # as channel number 
Return from this subroutine 


buffers 


$82 
SA7,X 
SD2E9 


Get number of current channel and 
determine matching buffer 

Is buffer occupied? 

YES—get another channel number & 
compute for a second 

buffer; 

save it 

Get matching buffer number 

Is buffer occupied? 

NO-test against'buffer free'value 
Is the buffer identified free? 
NO-Save buffer number 

Set'buffer free'value for current 
channel 

call another buffer number 


D2D2. 88 DEY 
D2D3 30 03 BMI 
D2D5 18 CLC 
D2D6 69 08 ADC 
pD2p8t aa TAX 
D2D92 60 RTS 
[E2BC/E2BF] 

Free up all inactive 
D2DA A6 82 LDX 
D2DC_ BS AT LDA 
D2DE 30 09 BMI 
D2EO 8A TXA 
D2E1 18 CLC 
D2E2 69 07 ADC 
D2E4 AA TAX 
D2E5 BS A7 LDA 
D2E7 10 FO BPL 
p2E91 co FF CMP 
D2EB FO EC BEQ 
D2ED 48 PHA 
D2EE AQ FF LDA 
D2FO 95 AT STA 
D2F2 68 PLA 
[D268/D279/D28A] 
Free up buffer index 
D2F3 29 OF AND 
D2F5 A8 TAY 
D2F6 C8 INY 
D2F7 A2 10 LDX 
D2F9! 6— 50 02. ROR 
D2FC 6E 4F 02 ROR 
D2FF 88 DEY 
D300 DO 01 BNE 
D302 18 CLC 
D303+ ca DEX 
D304 10 F3 BPL 
D306 60 RTS 


Reserve and 

save 

buffer numbers 

Total number of buffers 
Displace buffer index 

by one bit 

Set pointer to next buffer 

Any buffers left 

NO-set ‘buffer free' flag 
Re-establish bit index again 
Are bits back in output position? 
YES—Return from this subroutine 
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Set channel number counter 

to currrent secondary address 
and close channel 

Set counter to next channel # 
All channels already closed? 
YES—-return from this subroutine 


on current drive 


#50E 
$83 
$83 


$022B,X 


#S$FF 
$D334 
#$3F 
$82 
$DF93 


$025B,X 


#501 
S7F 
$D334 
$D227 
$83 
$D317 


Channel number counter 

Save and set channel number of 
current secondary address 

Get corresponding status 

& test against'channel free'value 
Is channel occupied? 

YES—-get this channel number and 
store it 

Get buffer number and 

save it 

Get jobcode for buffer & isolate 
the instructions from it 

Test against current drive value 
Channel belong to another drive? 
NO-Free channel 

Counter for channel on nxt chnl 
All channels used? 

YES—Return from this subroutine 


[84D8/8C64/EE36] 
Close channels 0-14 
D307 AQ OE LDA 
D309 85 83 STA 
D30B! 20 27 D2. ~=—sJSR 
D30E C6 83 DEC 
D310 DO F9 BNE 
D312 60 RTS 
[D045/EC55/EC66] 
Free up all channels 
D313 A9 OE LDA 
D315 85 83 STA 
D317 a6 83 LDX 
D319 BD 2B 02. LDA 
D31C C9 FF CMP 
D31E FO 14 BEQ 
D320 29 3F AND 
D322 85 82 STA 
D324 2093 DF JSR 
D327 AA TAX 
D328 BD 5B 02 LDA 
D32B 29 01 AND 
D32D C5 7F CMP 
D32F DO 03 BNE 
D331 2027 D2 #£4JSR 
D334% C6 83 DEC 
D336 10 DF BPL 
D338 60 RTS 
[D29D] 

Get a free buffer 
D339 AS 6F LDA 
D33B 48 PHA 
D33C AO 00 LDY 
D33E/ B6 FA LDX 
D340 BS A7 LDA 
D342 10 04 BPL 
D344 C9 FF CMP 
D346 DO 16 BNE 
D3482 8A TXA 
D349 18 clic 
D34A 69 07 ADC 
D34C AA TAX 
D34D BS A7 LDA 
D34F 10 04 BPL 


SAT,X 
$D355 


Get channel number 

and save it 

Set chnl # cntr to start value 
Get number of channel 

Get number of buffer assigned 
Is buffer being used? 

NO-test against'buffer free'value 
Is buffer free? 

YES-—Get another channel number 
and convert for access to 

a second buffer; 

save it 

Get corresponding buffer 

Is buffer occupied? 
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A7 00 


#SFF 
$D35E 


#$05 
$D33E 
#SFF 
SD37A 
S6F 
#$3F 


$00,X 
$D363 
#$02 
$D373 
S6F 
#$07 
$D348 
$D355 
S6F 


#SFF 
SOOA7,¥Y 


S6F 


NO-test against val:'buffer free' 
Is buffer free? 

YES~—choose next channel 

Compare with max. # of channels 
Are all channels worked with? 
Error flag value 

Jump to $D37A 

Set channel number; 

use to determine buffer number 
and save it 

Get jobcode of buffer 

Is job still in process? 
NO-test return msg against 
Job run error-free? 

NO-—get channel number and test 
for maximum number 

Channel number in allowed range? 
NO—Jump to $D355 

Get channel number and label 
buffer in buffer assignment table 
as free 

Get originl channel number again 
and reset it 

Give buffer number 

Return from this subroutine 


"OK! 


D351 c9 
D353 DO 
D3552 C8 
D356 CO 
D358 90 
D35A A2 
D35C DO 
D35E* 86 
D360 29 
D362 AA 
D363+ BS 
D365 30 
D367 C9 
D369 90 
D36B AG 
D36D EO 
D36F 90 
D371 BO 
D373 a4 
D375 AQ 
D377 99 
D37A1 68 
D37B 85 
D37D 8A 
D37E 60 
[D1E9] 

Seek and 
D37F AO 
D381 Ag 
D383! 2c 
D386 DO 
D388 C8 
D389 OA 
D38A DO 
D38C AQ 
D38E 4C 
D391+ 49 
D393 2D 
D396 8D 
D399 98 
D39A 60 


free channel 


LDY 
LDA 
BIT 
BNE 
INY 
ASL 
BNE 
LDA 
JMP 
EOR 
AND 


#500 
#501 
$0256 
$D391 


A 
$D383 
#570 
$C1C8 
#SFF 
$0256 
$0256 


Initialize pointers 

Bit of channel to be tested 
Test bit in channel catalog 

Is channel free? 

NO—pick next channel 

Bit positioned for next channel 
Have all channels been checked? 
YES-error message 

'70 No Channel' displayed 
Invert ‘channel free' bitflag and 
focus down into flag byte 

Lay out channel 

Get channel number 

Return from this subroutine 
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[CA39] 

Get byte from channel 

D39B 20 EB DO JSR SDOEB Open read channel 

D39E 20 00 Cl JSR $C100 Switch on LED of current drive 
D3A1l 20 AA D3 JSR SD3AA Read out byte over channel 

D3A4 A6 82 LDX $82 Determine channel number 

D3A6 BD 3E 02 LDA $023E,X and get corresponding data byte 
D3A9 60 RTS Return from this subroutine 
[82BD/D3A1/E992} 

Read byte from file 

D3AA A6 82 LDX $82 Get channel number 

D3AC 20 25 Dl JSR $D125 Determine filetype 

D3AF DO 03 BNE SD3B4 Is it a relative file? 

D3B1 4C 20 El JMP $E120 YES-REL file routine 

p3B41 a5 83 LDA $83 Get secondary address and 

D3B6 C9 OF CMP #SOF compare with command channel (15) 
D3B8 FO SA BEQ $D414 Command channel produced? 

D3BA BS F2 LDA S$F2,X NO-Get channel status and 

D3BC 29 08 AND #$08 test for EOI flag 

D3BE DO 13 BNE $D3D3 Was last byte transferred? 

D3CO 20 25 Dil JSR $D125 YES—Determine filetype & compare 
D3C3 C9 07 CMP #S07 with value for direct access 

D3C5 DO 07 BNE S$D3CE Direct access chanel been opened? 
D3C7 AY 89 LDA #$89 YES—Send direct access flag value 
D3C9 95 F2 STA SF2,X as channel status 

D3CB 4C DE D3 JMP SD3DE Get byte from buffer 

D3cE! a9 00 LDA #$00 Flag value for EOI encountered; 
D3DO0 95 F2 STA SF2,X close channel and clear map 

D3D2 60 RTS Return from this subroutine 

D3D3- AS 83 LDA $83 Get current secondary address 
D3D5 FO 32 BEQ $D409 Should it be loaded as a program? 
D3D7 20 25 Dil JSR $D125 NO—Determine filetype and 

D3DA C9 04 CMP #$04 compare w/value for relative file 
D3DC 90 22 BCC $D400 Identical? 

[D3CB/FFBO] 

Get byte from relative file 

D3DE 20 2F Dl JSR $D12F YES-Set buffer & channel numbers 
D3E1 B5 99 LDA $99,X Get current buffr pointer, compare 
D3E3 D9 44 02 CMP $0244,Y with the end-of-buffer 

D3E6 DO 04 BNE $D3EC End of effective range reached 
D3E8 AQ OO LDA #$00 Buffer pointer (low-byte) 

D3EA 95 99 STA $99,X reset 
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[CD59/D3E6] 
Get next byte from file 
D3EC F6 99 


Get currrent byte from file 
($99, X) 
$023E,Y 


INC $99,X 


LDA 
STA 
LDA 
CMP 
BNE 
LDA 
STA 
RTS 
JSR 
LDX 
STA 


$99,X 


$0244,Y 


SD3FF 
#$81 


SOOF2,Y 


$D156 
$82 


$023E,X 


1571 Internals 


Set buffer pointer to next byte 


Read byte from buffer and save 
as byte to be given 

Get buffer pointer and 

test against end value 

Reached end of the file range? 
YES—Take flag value for ‘last 
char into channel status table 
Return from this subroutine 
Get character from buffer 

Get number of current channel and 
allocate databyte for output 
Return from this subroutine 
Get flag for directory 

Is directory in buffer? 
YES-—Get byte from directory 
and take it over 


JSR 
CMP 
BNE 
LDA 
CMP 
BNE 
LDA 
STA 
JSR 
LDA 
JSR 
DEC 
LDA 


[CDCA/CFD5] 
D3EE Al 99 
D3FO 99 3E 02 
D3F3 BS 99 
D3F5 D9 44 02 
D3F8 DO 05 
D3FA AQ 81 
D3FC 99 F2 00 
p3FF+ 60 

D4002 20 56 Dil 
p4031 a6 82 
D405 9D 3E 02 
D408 60 

p409+ ap 54 02 
D40C FO F2 
D40E 20 67 ED 
D411 4c 03 D4 
[D3B8] 

Read error channel 
D414 20 E8 D4 
D417 C9 D4 
D419 DO 18 
D41B AS 95 
D41D C9 02 
D41F DO 12 
D421 A9 OD 
D423. 85 85 
D425 20 23 Cl 
D428 A9 00 
D42A 20 Cl E6 
D42D Cé AS 
D42F A9 80 
D431 DO 12 
D433 20 37 D1 
D436 85 85 
D438 DO 09 


Get current buffer pointer 
Compare w/ error buffer value 

Is the pointer properly set? 
YES—Get pointer hi-byte and test 
against correct value 

Is pointr directd at error buffr? 
YES—'Return' 

Output to next byte 

Reset error flag 

Number of 'OK' message 

Write message to error buffer 
Pointer to errormessge buffr (lo) 
'Read' flag 

Jump to $D445 

Get byte from error buffer and 
take as byte to be output 
Reached the end? 
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{CB48] 

Set pointer for error message pointer ($02D4) 

D43A A9 D4 LDA #$D4 YES-Set buffer pointer for 

D43C 20 C8 D4 JSR $D4C8 error buffer 

D43F A9M 02 LDA #$02 Set pointer 

D441 95 9A STA $9A,X high-byte 

[CB42/D438] 

Initialize error message channel 

D443 AY 88 LDA #$88 Set 'read' and 'EOI' 

D445 85 F7 STA SF7 flags for channel 5 

D447 AS 85 LDA $85 Get byte and take up 

D449 8D 43 02 STA $0243 output 

D44C_ «60 RTS Return from this subroutine 
[C629/C8B0/EE07] 

Read next sector of a file 

D44D 20 93 DF JSR SDF93 Determine buffer number 

D450 OA ASL A and double it 

D451 AA TAX (pointr table works w/2-byte #'s) 
D452 AQ OO LDA #$00 Starting position in buffer 
D454 95 99 STA $99,X taken up in buffr pointr (lobyte) 
D456 Al 99 LDA ($99, xX) Get track number of next sector 
D458 FO 05 BEQ SD45F No more sectors on hand 

D45A D6 99 DEC $99,X Set buffer pointer to end 

D45C 4C 56 Dl JMP $D156 Read next sector 

p45F+ 60 RTS Return from this subroutine 
[CD39/D720/DBC9}] 

Take jobcode for 'read sector' 

D460 A9 80 LDA #$80 Set jobcode for ‘read sector' 
D462 DO 02 BNE $D466 Jump to $D466 


[CD8C/CD9D/D790/D93A/D98A/EEAC ] 
Take up jobcode for 'write sector' 


D464 A9 90 LDA #$90 Set jobcode for 'write sector' 
[D462] 

Execute jobcode (in A) 

D466 O5 7F ORA S7F Set current drive # in jobcode 
D468 8D 4D 02 STA $024D and save jobcode 

D46B A5 F9 LDA SF9 Get number of current buffer 
D46D 20 D3 D6 JSR $D6D3 Take track and sector numbers 
D470 A6 FY LDX SF9 Get number of current buffer 
D472 4C 93 D5 JMP $D593 Set jobcode and execute job 
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[C5C1/C60E/C880/CA0C/EDEB] 


Open sequential file for reading 


D475 AQM O01 


LDA 


STA 
LDA 
STA 
JSR 
LDA 


#$01 


1571 Internals 


Filetype identifier for SEQ file 


determined 

# of internal read channels (17) 
taken as current 2ndary address 
Buffer laid out & sector read in 
Buffer pointer set to start of 
file range 


writing 


LDA 
STA 
JMP 


#$12 
$83 


Set # of internal write channel 
(18) set as secondary address 
Open channel & laydown new sector 


[E7D5] 

Open file for reading 
D477 8D 4A 02 
D47A A911 
D47C 85 83 
D47E 20 46 DC 
D481 A9 02 
D483 4C C8 D4 
[C9BO] 

Open file for 
D486 AY 12 
D488 85 83 
D48A 4C DA DC 
[D730] 

Write next directory 
D48D 20 3B DE 
D490 AQ Ol 
D492 85 6F 
D494 AS 69 
D496 48 

D497 AY 03 
D499 85 69 
D49B 20 2D Fl 
D49E 68 

D49F 85 69 
D4A1 A9 00 
D4A3 20 C8 D4 
D4A6 AS 80 
D4A8 20 F1 CF 
D4AB AS 81 
D4AD 20 Fl CF 
D4BO0 20 C7 DO 
D4B3 20 99 D5 
D4B6 AQ 00 
D4B8 20 C8 D4 
D4BB! 20 Fl CF 
D4BE DO FB 
D4CO 20 Fl CF 
D4Cc3 AY FF 
D4C5 4C Fl CF 


JSR 
LDA 
STA 
LDA 
PHA 
LDA 
STA 
JSR 
PLA 
STA 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
JSR 
JSR 
LDA 
JSR 


sector 


SDE3B 
#$01 
S6F 
$69 


#503 
$69 
SF12D 


$69 
#$00 
$D4C8 
$80 
SCFF1 
$81 
SCFF1 
$DOC7 
$D599 
#$00 
SD4C8 
SCFF1 


Get current track/sector numbers 
Number of sectors to 

be laid down 

Get normal sector set and 

retain 

Declare sector set for directory 
at 3 

Transmit next free sector 
Re-direct normal 

sector set 

Set buffer pointer to 
start-of-buffer 

Write track # of new sector in 
current directory sector 

Take # of next sector in current 
sector as string 

Write current sector to diskette 
Wait until job loop is ready 
Reset buffer pointer 

to beginning 

Write fillbytes into buffer 
Entire buffer cleared? 
YES-Identifier for last sector 
Write number of good sector bytes 
in sector 
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[C614/C896/CA14/CA32/CAB4/CD47/CD83/D16F/D1AB/D1C3/D43C/D483/D4A3/D4B8] 
[D740/D914/DA42/DB92/DCA0/DD6F/DE97/DFFA/E04F/E27A/E476/E4A3/E4C0O/E4DB] 
[ECA9/EDFO] 

Set buffer pointer to given position 


D4c8s 85 6F STA S6F Save new position 

D4CA 20 93 DF JSR S$DF93 Get current buffer number and 
D4CD OA ASL A double it (pointer table takes 
D4CE AA TAX 2-byte pointers) 

D4CF B5 9A LDA $9A,X Get and set 

D4D1 85 95 STA $95 buffer pointer (high-byte) 

D4D3 AS 6F LDA S6F Get low-byte of buffer pointer 
D4D5 95 99 STA $99,X Save and set as current 

D4D7 85 94 STA $94 buffer pointer 

D4D9_ +60 RTS Return from this subroutine 
[C1BA/DAD1/E653] 

Close internal channels 

D4DA AQ 11 LDA #S$11 Set # of internal read channel 
D4DC_ 85 83 STA $83 (17) as current secondary address 
D4DE 20 27 D2 JSR $D227 Close channel 

D4E1 A9 12 LDA #$12 Store number of internal write 
D4E3 85 83 STA $83 channel (18)as current 2ndry adrs; 
D4E5 4C 27 D2 JMP $D227 Close channel 


[C5D7/C6E5/CD76/CFDC/D1C8/D414/DB6A/DB76/DFEA/E182/E1A9}] 
Determine current buffer pointer 


D4E8 20 93 DF JSR S$DF93 Get number of current buffer 
[DF49] 

Set buffer pointer (buffer number in A) 

D4EB OA ASL A Double it (pointer table deals 
D4EC AA TAX with 2-byte numbers) 

D4ED BS 9A LDA $9A,X Get pointer at position in buffer 
D4EF 85 95 STA $95 and take on as 

D4F1 BS5 99 LDA $99,X current 

D4F3 85 94 STA $94 buffer pointer 

D4F5 60 RTS Return from this subroutine 


[C5D1/CF39/CF40/E00E/E39F] 
Read any byte from buffer 
(A must contain position of the character) 


D4F6 85 71 STA $71 Save buffer position 

D4F8 20 93 DF JSR SDF93 Determine current buffer number 
D4FB AA TAX and save it 

D4FC BD EO FE LDA SFEEO,X Get hi-byte of appropriate buffer 
D4FF 85 72 STA $72 address and set it 

D501 AO OO LDY #500 Initialize buffer pointer and 
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D503 Bil 71 LDA ($71),Y 


D505. +60 RTS 
[DODO/DE32] 

Test track and sector numbers for 
D506 BD 5B 02. LDA $025B,X 
D509 29 01 AND #$01 
D50B OD 4D 02. ORA $024D 
D50E: 48 PHA 

D50F 86 F9 STX SF9 
D511 8A TXA 

D512 OA ASL A 
D513. AA TAX 

D514 BS 07 LDA $07,X 
D516 8D 4D 02. + STA $024D 
D519 B5 06 LDA $06,X 
D51B FO 2D BEQ $D54A 
D51D CD AC 02. CMP $02AC 
D520 BO 28 BCS SD54A 
D522. AA TAX 

D523. 68 PLA 

D524 48 PHA 

D525 29 FO AND #$FO 
D527 C9 90 CMP #$90 
D529 DO 4F BNE SD57A 
D52B 68 PLA 

D52C 48 PHA 

D52D 4A LSR A 
D52E BO 05 BCS $D535 
D530 AD 0101 #£LDA $0101 
D533. 90 03 BCC $D538 
D535- AD 02 01 + LDA $0102 
D538 FO 05 BEQ $D53F 
D53A CD D5 FE CMP $FEDS5 
D53D DO 33 BNE $D572 
p53F1 ga TXA 

D540 20 4B F2 JSR $F24B 
D543. CD 4D 02. CMP $024D 
D546 FO 02 BEQ SD54A 
D548 BO 30 BCS SD57A 
D54A2 20 52 D5 JSR $D552 
D54D4 AQ 66 LDA #866 
D54F 4C 45 E6 JMP $E645 


get byte from buffer position 
Return from this subroutine 


validity, then set jobcode 

Get jobcode declared by buffr and 
determine drive number from it 
Concentrate on markiing 

current jobcode 

Hold on to buffer number 

and double 

the number (the next table uses 
2-byte values) 

Get sector number of this job 
and save it 

determine track # of this job 

No track chosen (0)? 

NO—and test for largest track +1 
Is this track # in allowed range? 
YES—Save track number 

and call jobcode back; 

save it again 

Isolate jobcode 

and compare with code for 'write' 
Identical? 


YES—get entire jobcode again and 
save it immediately 

Bitflag for drive number in Carry 
Drive 1 chosen? 


NO—Format identifier for drive 0 
Jump to $D538 

Get format identifier for drive l 
Jump to $D53F 

Compare with identifier 'A' 

Right format? 

YES-get track number again 

Get largest appropriate sector # 
Compare with sector number of job 
Reached the maximum number? 

NO-is sector number legal? 

NO-get track and sector of job 
again, and display error message 
'66 Illegal Track or Sector' 
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[D54A/D572) 


Get track/sector of current job from job memory 


D552 AS FY LDA $F9 
D554 OA ASL A 
D555 AA TAX 

D556 BS 06 LDA $06,X 
D558 85 80 STA $80 
DS55A B5 07 LDA $07,X 
D55C 85 81 STA $81 
D55E 60 RTS 
[CEO8/EDE5] 


Check current track/sector 


D55F A5 80 LDA $80 
D561 FO EA BEQ $D54D 
D563 CD AC 02 CMP SO2AC 
D566 BO ES BCS $D54D 
D568 20 4B F2 JSR $F24B 
D56B C5 81 CMP $81 
D56D FO DE BEQ $D54D 
D56F 90 DC BCC $D54D 
D571 60 RTS 
[D53D/EE53] 


Get # of current job (buffer) 
and double 

(table works w/ 2-byte values) 
Get job track # from table and 
save as current track 

Get job sector number & store as 
current sector number 

Return from this subroutine 


for allowable range 


Get current track number 

No track set? 

NO-Test for max. allowable tracks 
Allowable track number (< max.)? 
YES-Get # of sectors in track, & 
compare with current sector # 

Is the sector number 1 too high? 
NO-Is the number still larger? 
NO—Return from this subroutine 


Display error message for false format 


D572 20 52 D5 JSR $D552 
D575 AY 73 LDA #$73 
D577 4C 45 E6 JMP SE645 
[D529/D548] 


Get track/sector of job and 
display error message -- 
*73 CBM DOS V3.0 1571' 


Send job for current buffer to job loop 


since the stack must contain 


Get the # of the current buffer 
get jobcode to be set and 

store as current jobcode 

Give to job loop 

Assign to current buffer 

Return from this subroutine 


(NB:Routine cannot jump with 'JSR', 
the jobcode and not the jump address) 
DS7A A6 FY LDX $F9 

D57C 68 PLA 

D57D 8D 4D 02 STA $024D 

D580 95 00 STA $00,X 

D582 9D 5B 02 STA $025B,X 

D585 60 RTS 
[A5D1/A66E/A693/A6BA] 


Send jobcode for read to job loop 
D586 AY 80 LDA #$80 
D588 DO 02 BNE $D58C 


and wait until execution 
Jobcode for 'read sector' 
Jump to S$D58C 
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[A594/A5A4/A5C5] 
Send jobcode for write to job loop, 


D58A AY 90 


[A6E5/A70E/D588}] 


LDA #$90 


and wait until execution 
Jobcode for 'write sector' 


Execute job for current drive (jobcode in A) 
D58C O05 7F 
D58E A6é FI 


[DC3D] 


Execute 


D590 


([D472/DF42] 


ORA $7F 


LDX 


SF9 


Take current drive in jobcode 
Get number of proper buffers 


jobcode (jobcode in A, buffer number in X) 


8D 4D 02 


D593 AD 4D 02 
D596 20 OE D5 


[869A/C8BE/CAAC/CAC6/D0A1/D4B3/DB9F/DC95/DD6A/DD84/DDF9/E068/E430/E4A9] 


Wait until job is executed and error message 


STA $024D 


Execute job 


LDA $024D 
JSR $D50E 


JSR 
BCS 
PHA 
LDA 


SD5A6 
$D599 


#500 
$0298 


and save current jobcode 


Get jobcode; test track/sector 
parameters; and wait in job loop, 


is prepared 
Control job run 

Is job finished yet? 

YES-Save return message of job 
Clear 'Error from job' 

flag and 

get return message again 
Return from this subroutine 


Supervise current job run 


[E4F0/CF73/E05A] 
D599 20 A6 DS 
D59C BO FB 
D59E 48 

D59F AQ 00 
D5Al 8D 98 02 
D5A4 68 

D5A5. 60 
[D599] 

D5A6 BS 00 
D5SA8 30 1A 
D5AA C9 02 
D5AC 90 14 
D5AE C9 08 
D5BO FO 08 
D5B2 C9 OB 
D5B4 FO 04 
D5B6 C9 OF 
D5B8 DO OC 
D5BA2 2C 98 02 
D5BD 30 03 
D5BF 4C 3F D6 
D5c22 18 

D5¢c3. «60 

p5c4i 38 

D5c5 60 


LDA 
BMI 
CMP 
BCC 
CMP 
BEQ 
CMP 
BEO 
CMP 
BNE 
BIT 
BMI 
JMP 
CLC 
RTS 
SEC 
RTS 


$00,X 
$D5C4 
#$02 
$D5C2 
#$08 
SD5BA 
#S50B 
SD5BA 
#S0F 
$D5C6 
$0298 
$D5C2 
$D63F 


Get jobcode from job memory 

Is job still in process? 
NO-Test for 'OK' message 

Job properly run? 

NO-—Compare w/ ‘Write Protect On' 
Is write-protect notch covered? 
NO—Compare w/ 'Disk ID Mismatch' 
Find a false ID? 

NO—Compare w/ 'Drive Not Ready' 
Unformatted diskette in drive? 
YES—Test error flag 

Has an error been displayed? 
NO—Display error message 

Set flag for 'Job finished' 
Return from this subroutine 

Set flg f/'Job not finished yet' 
Return from this subroutine 
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[D5B8/D644 : A6CE] 
Set head to next track after a read error; 


D5C6 
D5C7 
D5c8 
D5CA 
D5CB 
D5CE 
D5D0 
D5D2 
D5D3 
D5D6 
D5D9 
D5DC 
D5DE 
D5E0 
D5E3+ 
D5E6 
D5E8 
D5E9 
D5EB 
D5ED 
D5EF 
D5F1 
p5Frat 
D5F6 
D5F8 
D5FA 
D5FD 
p6oot 
D603 
D606 
D607 
D60A 
D60D 
D610 
D613 
D616 
D619 
D61B 
D61D 
D620 
D623 
pé6é251 
D628 
D62B 
D62D 


98 
48 
A5 
48 
BD 
29 
85 
A8 
B9 
8D 


AD 


TF 


5B 
01 
7F 


CA 
6D 
A6 
02 
03 
6D 
5B 
FO 


90 
07 
TF 
B8 
SB 
6A 
39 
00 
99 
9A 
99 
9A 


DB 
9A 
DB 
Al 
99 
A6 
02 
08 
99 
DB 
DB 
9A 
A6é 
00 
02 


02 


FE 
02 
D6 


D6 
02 


02 


02 
02 
02 
02 


FE 
02 
FE 
FF 
02 
D6 


02 


FE 


02 
FF 


TYA 
PHA 
LDA 
PHA 
LDA 
AND 
STA 
TAY 
LDA 


S7F 


$025B,X 


#$01 
S7F 


SFECA, Y 


$026D 
SD6A6 
#$02 

SD5E3 
SD66D 


$025B,X 


#SFO 


#$90 
SD5F4 
STF 
#S$B8 


$025B,X 


S6A 
$D631 
#500 
$0299 
$029A 
$0299 
S$O29A 


SFEDB, Y 


$O29A 


SFEDB, Y 


SFFA1 
$0299 
SD6A6 
#502 

$D625 
$0299 


SFEDB, Y 


$D600 
$029A 
SFFA6 
$00,X 
#$02 


search some more 

Reserve Y-Register 

(routine will change it) 

Get current drive number and 
save it 

Get buffer-declared jobcode and 
determine drive used 

Store # of current drive and get 
bitmask stated by drive, 

to switch drive LED on 

Save LED-blink mask 

(S6A) Execute read-search 

Compare return message w/ 'OK! 
Last job run without errors? 
YES—End of routine 

Get current jobcode 

Isolate and save 

command bits 

Compare with value for ‘write’ 
Has a sector been written? 
YES-—Get drive number and set 
jobcode for 'look for sector' 
Assign jobcode to current buffer 
Flg fr'don't look for next track' 
Is flag set? 

NO-Initialize pointers: 

Position pointer to next track 
Pointer to searchphase—next track 
Determine positioning phase 

Get currnt cntrl byt f/head move- 
ment and sent value for return to 
outside position, then 
positioning next to the track 

Get cntrl byt for 1/2step to next 
track; execute head movement 

Set counter to next control byte 
(S6A) Execute read search 

Test retrn messge aganst'OK'value 
Any errors? 

Get counter for positioning phase 
Get next positioning command 

End of search string? 

YES—Get cntrl value for return to 
track & look for a reading again 
Get return value of job loop and 
compare with 'Ok' 
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SD65C 
S6A 
$D644 


#590 
SD63F 
S7F 


$025B,X 


$00,X 
SE60A 


$0298 
SD66D 


#$CO 
STF 
$00,X 
$9OFB6 


SD6A6 
#502 
$D635 


#$90 
SD66D 
S7F 


$025B,X 


SD6A6 
#$02 
$D63F 


S7F 


$00,X 


Read-search go well? 

NO-—Check flag: 'head at track 0O' 
Re-adjust head (Bump) ? 

NO-—Get command code,test against 
"write sector' job 

Identical? 
YES—Set drive #, 
buffer a jobcode 
Get return message of job 

and prep error message 

Get proper command code 

Test error flag 

Found an error already? 

NO-Save jobcode and 

set jobcode for 'head re- 
adjusted' (Bump) for current 
drive 

Start job loop and execute job 
(via modification of 1541 ROM] 
Job executed ($6A) times 

Compare return message w/ 'OK' 
Was this last run correctly? 
YES—Get jobcode again and compare 
with value for 'write' 

Should sector have been written? 
YES-Set drive number and assign 
jobcode to current buffer 

(S6A) times—look for sector write 
Compare return mess. w/ 'OK' 
Successful write? 

YES—Prep current drive number 
again 

Reset 

Y-register 

Get return message for job loop 
Set flag for 'Job finished' 
Return from this subroutine 


assign current 


Accumulator instructs head to move in half-steps 
step in; Bit? =0 step out) 


D62F 90 2B 
D631 24 6A 
D633 10 OF 
D635~ 68 

D636 C9 90 
D638 DO 05 
D63A 05 7F 
D63C 9D 5B 02 
D63F2 B5 00 
D641 20 OA E6 
D6442 68 

D645 2C 98 02 
D648 30 23 
D64A 48 

D64B AQ CO 
D64D 05 7F 
D64F 95 00 
D651 20 B6 OF 
D654 EA 

D655 20 A6 D6 
D658 C9 02 
D65A BO D9 
péscl 68 

D65D C9 90 
D65F DO 0c 
D661 05 7F 
D663 9D 5B 02 
D666 20 A6 D6 
D669 C9 02 
D66B BO D2 
D66D> 68 

D66E 85 7F 
D670 68 

D671 A8 

D672 BS 00 
D674 18 

D675 60 
[FF99/FF9C] 
(Bit? =1 

D676 C9 00 
D678 FO 18 
D67A 30 0C 
pé7c! ao 01 
D67E 20 93 D6 
D681 38 


CMP 
BEQO 
BMI 
LDY 
JSR 
SEC 


#500 
$D692 
$D688 
#501 
$D693 


Test contents of accumulator 
Step value given? 

YES-—Should head move out? 
Value for half-step in 

Reset head 

and decrement counter 
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D682 E9 01 SBC #$01 
D684 DO F6 BNE $D67C 
D686 FO OA BEQ $D692 
D6882 AO FF LDY #SFF 
D68A 20 93 D6 JSR $D693 
D68D 18 CLC 

D68E 69 O01 ADC #$01 
D690 DO F6 BNE $D688 
D6922 60 RTS 
[D67E/D68A] 

Head movement values given to job 
D693 48 PHA 

D694 98 TYA 

D695 A4 7F LDY $7F 
D697 99 FE 02. STA $02FE,Y 
D69A1 Do FE 02 CMP $02FE,Y 
D69D FO FB BEQ S$D69A 
D69F AQ 00 LDA #$00 
D6Al 99 FE 02. STA $02FE,Y 
D6A4 68 PLA 

D6A5 60 RTS 


0{[D5D9/D616/D655/D666] 
Jobcode executes until successful, 


D6A6 AS GA LDA $6A 
D6A8 29 3F AND #$3F 
D6AA A8 TAY 

D6AB! AD 6D 02 LDA $026D 
D6AE 4D 00 1C  EOR $1C00 
D6B1 8D 00 1C_ STA $1C00 
D6B4 BD 5B 02. LDA $025B,X 
D6B7 95 00 STA $00,X 
D6B9 20 B6 9E- JSR $9EB6 
D6BC EA NOP 

D6BD C9 02 CMP #$02 
D6BF 90 03 BCC $D6C4 
D6C1 88 DEY 

D6C2 DO E7 BNE S$D6AB 
pec4al 48 PHA 

D6C5 AD 6D 02. LDA $026D 
D6C8 OD 00 1C  ORA $1C00 
D6CB 8D 00 1C_ STA $1C00 
D6CE 68 PLA 

D6CF 60 RTS 


for number of half-steps 

All steps taken? 

YES—Jump to $D692 

Value for half-step out 

Set head again and 

increment counter for 

number of half-steps 

All steps covered? 

YES—Return from this subroutine 


loop 

Reserve accumulator 

Get ‘value for head positioning 
Get current drive number and 
send control byte to job loop 
Get value again 

Was value taken and head set? 
YES—clear 

job register 

Re-establish accumulator 
Return from this subroutine 


or when counter in $6A=0 
Get search number and limit 
to a range of 0 to 63 
set counter 

Switch on LED mask 

LED bit in drive control register 
Switches (LED flickers) 
Get jobcode of current buffer and 
send to job loop 

Start job loop and execute job 
[1541 ROM modification] 
Compare return message w/ '‘'OK' 
Is job completed? 
NO—decrement trial number 

Any more trials to be done? 
NO-Save job number 

Get 'LED on' mask and 
concentrate remaining bits of 
contrl registers; set registers 
Get return message from job loop 
Return from this subroutine 
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[DO09B/DOBA/D186/DCE2/DE7F/E3B9/E3CB] 
Send current track & sector number to job loop 
D6DO0 20 93 DF JSR SDF93 Get current buffer number 


[A414/C8D7/D03A/D46D/DC8F/DD2E/DF3D] 
Send track & sector to job loop (buffer in A) 


D6D3 OA ASL A and double (job table works 
D6éD4 A8 TAY with 2-byte values) 

D6D5 AS 80 LDA $80 Send number of current track 
D6D7 99 06 O00 STA $0006,Y to job loop 

D6DA AS 81 LDA $81 Store current sector number 
D6éDC 99 07 OO STA $0007,Y for job loop 

D6DF AS 7F LDA S$7F Get current drive number 
D6E1 OA ASL A double and 

D6E2 AA TAX save 

D6E3 60 RTS Return from this subroutine 


[C9B3/D9EC] Close file entry in directory 


D6E4 AS 83 LDA $83 Get and retain current secondary 
D6E6 48 PHA address 

D6E7 AS 82 LDA $82 Get and retain current channel 
D6E9 48 PHA number 

D6EA ADS 81 LDA $81 Get and retain current sector 
D6EC 48 PHA number 

D6ED AS 80 LDA $80 Get and retain current track 
D6EF 48 PHA number 

D6FO AQ 11 LDA #$11 Set # of internal read channel 
D6F2 85 83 STA $83 (17) as current channel number 
D6F4 20 3B DE JSR S$DE3B Determine track & sector number 
D6F7 AD 4A 02 LDA $024A Get and hold on to 

D6FA 48 PHA current filetype 

D6FB AS E2 LDA S$E2 Produce drive number of new file 
D6FD 29 O1 AND #$01 and establish 

D6FF 85 7F STA S7F as current drive number 

D701 A6 FY LDX SF9 Current buffer number 

D703 5D 5B 02 EOR $025B, X Get drive # belonging to jobcode 
D706 4A LSR A and compare with actual drive no. 
D707 90 OC BCC $D715 Are the two drives identical? 
D709 A2 01 LDX #$01 Set pointer to 

D70B 8E 92 02 STX $0292 applicable entry 

D70E 20 AC C5 JSR SC5AC Look for next free entry 

D711 FO 1D BEQ $D730 All of them covered? 

D713 DO 28 BNE $D73D NO-Write entry to directory 
bD715+ aD 91 02 LDA $0291 Get number of directory sector 
D718 FO OC BEQ $D726 Sector number set? 

D71A CS 81 CMP $81 YES—compare with current sector # 
D71C FO 1F BEQ $D73D Identical? 
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AA 


81 
60 
3D 
01 
92 
17 
OD 
8D 
81 
91 
02 
92 
92 
C8 


4A 
04 
02 
80 
Fl 


80 
Fl 


85 
Fl 
93 


TA 


10 
6E 
10 
00 
94 


1B 
F9 
4A 
04 
13 
10 
59 
94 


SA 
94 


D4 
D7 


02 
Cé 


D4 


02 


02 


02 


D4 


02 


CF 


02 
CF 


02 
CF 
DF 
02 


Cé 


02 


02 


02 


STA 
JSR 
JMP 
LDA 
STA 
JSR 
BNE 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
JSR 
PLA 
STA 
CMP 
BNE 
ORA 
JSR 
PLA 
STA 
JSR 
PLA 
STA 
JSR 
JSR 
TAY 
LDA 
TAX 
LDA 
JSR 
LDY 
LDA 
STA 
INY 
CPY 
BCC 
LDA 
CMP 
BNE 
LDY 
LDA 
STA 
INY 
LDA 
STA 


$81 
$D460 
$D73D 
#501 
$0292 
$C617 
$D73D 
$D48D 
$81 
$0291 
#502 
$0292 
$0292 
$D4C8 


SO024A 
#$04 
$D74D 
#$80 
SCFF1 


$0280 
SCFF1 


$0285 
SCFF1 
SDF93 


SO27A 


#$10 
SC66E 
#$10 
#$00 


($94),¥Y 


#$1B 
SD76F 
$024A 
#$04 
$D790 
#$10 
$0259 


($94),Y 


SO025A 


($94) ,Y 


1571 Internals 


NO—Get number of current sector 
Read sector into buffer 

Put out new entry 

Set pointer to appropriate 

file entry 

Get last sector of directory 

Any entries still free? 

NO-Lay out new directory sector 
Get sector number and set 

in pointer for directory sectors 
Initialize buffer pointer to 
start of file range 

Current pointer position 

Set buffer pointer 

Get back current filetype 

and set again 

Compare w/ relative file value 
Is it a relative file? 

YES-—File recognized as closed 
Enter filetype into directory 
Get track # of the first file 
sector again; store it 

Write track number into directory 
Get # of first sector of the file 
and save it 

Write sector number to directory 
Get # of directory buffer and 
note it 

Fetch and save filename position 
in input buffer 

Length of filename 

Write filename to directory 
Buffer pointer to end-of-filename 
Write empty bytes to buffer--fill 
out filename | 

Buffer pointer to next byte 
Compare pointer with end value 
Entire buffer filled? 

YES—Get current filetype 
Compare w/value for relative file 
Is a relative file being opened? 
YES-—Buffer pointer to end of name 
Get track # of first side-sector 
and write into entry 

Buffer pointer to next position 
Get sector #, write in directory 
buffer 
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rn a 


02 


D4 


02 


02 
02 


02 
02 


$83 
$0291 
$D8 


$0260,X 


$0292 
SDD 


$0266,X 


$O24A 
SE7 
S7F 
SE2 


Buffer pointer to next byte 

Get record lengtth and write 

in directory 

Write directory sector to disk 
Get current channel # and set 
again 

Save channel number 

Get current 2ndary address back 
and set it 

Get track # of file entry and 
save; put 

in buffer 

Get sector number of file entry 
and save it 

Put number into directory buffer 
Get filetype and 

save it 

Get current drive number and 
include in file entry 

Return from this subroutine 


Take on OPEN command 


D78A C8 

D78B AD 58 
D78E 91 94 
D7901 20 64 
D793 68 

D794 85 82 
D796 AA 

D797 68 

D798 85 83 
D79A AD 91 
D79D 85 D8 
D79F 9D 60 
D7A2 AD 92 
D7A5 85 DD 
D7A7 9D 66 
D7AA AD 4A 
D7AD 85 E7 
D7AF A5 7F 
D7B1 85 E2 
D7B3. 60 

[BF5D/C15D] 
D7B4 A5 83 
D7B6 8D 4c 
D7B9 20 B3 
D7BC 8E 2A 
D7BF AE 00 
D7C2 AD 4c 
D7C5 DO 2c 
D7C7 EO 2A 
D7C9 DO 28 
D7CB AS 7E 
D7CD FO 4D 
D7CF 85 80 
D7D1 AD 6E 
D7D4 85 7F 
D7D6 85 E2 
D7D8 AQ 02 
D7DA 85 E7 
D7DC AD 6F 
D7DF 85 81 
D7E1 20 00 
D7E4 20 46 
D7E7 AQ 04 
D7E9 O05 7F 
D7EB A6 82 


02 
C2 
02 
02 
02 


02 


02 


Cl 
DC 


LDA 
STA 
JSR 
STX 
LDX 
LDA 
BNE 
CPX 
BNE 
LDA 
BEQ 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
JSR 
LDA 
ORA 
LDX 


with secondary addresses 


$83 
$024C 
$C2B3 
$022A 
$0200 
$024C 
SD7F3 
#S2A 
SD7F3 
STE 
SD81C 
$80 
$026E 
S7F 
SE2 
#502 
SE7 
$O26F 
$81 
$C100 
SDC46 
#504 
STF 
$82 


0-14 
Get current secondary address 
and save it 

Set pointer for command string 
Clear command channel number (0) 
Get first char in input buffer 
Get secondary address 

Is there a LOAD command? 
YES—Check for '*' as lst 
First file entry loaded? 
YES-—Get last track number 
Is number set? 

YES—Take this as current spur 
Get number of last active drive 
and set as current drive 
Organize drive for file 

Flag for wildcard 

set | 

Get last sector worked with and 
convey as curreent sector number 
LED on current drive goes '‘'on' 
Open up buffer to read sector 
Bitflag for program file 

Get current drive with 

number of current channel and 


char 
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D7ED 
D7FO 
D7F32 
D7F5 
D7F7 
D7FA 
D7FC 
D7FFL 
D802 
D805 
D807 
D809 
D80B 
D80E 
D810 
D812 
ps15t 
D817 
D819 
psict 
D81E 
D821 
D823 
D825 
D828 
ps2Bt 
D82E 
D830 
D832 
ps34t 
D835 
D837 
D839 
ps3ct 
D83D 
D83F 
D8402 
D843 
D845 
D848 
D849 
D84C 
D84F 
D852 
D855 
D857 
D85A 


EC 
94 
24 
1E 
4c 
03 
55 
D1 
85 
80 
00 
81 
46 
TF 
02 
EB 
23 
12 
84 
02 
96 
00 
TF 
8E 
42 
ES 
04 
00 
OC 


05 
30 
C8 


01 


TA 
8D 
68 


78 
12 
CA 
9D 
00 
58 
97 


00 


Cl 


02 


DA 


Cl 
FE 


DC 


D7 


CB 


02 


02 


DO 
Cl 


ont 


02 


C2 


02 
C3 
C3 
C4 


02 
02 


SOOEC,Y 


$0194 
#$24 
$D815 
$024C 
SD7FF 
SDA55 
$C1D1 
SFE85 
$80 
#$00 
$81 
SDC46 
STF 
#$02 
SD7EB 
#$23 
$D82B 
SCB84 
#$02 
$0296 
#$00 
S7F 
$028E 
$D042 
SC1E5 
$D834 
#$00 
$D840 


SD83C 
#530 
$C1C8 


$D840 


$O27A 
#$8D 
$C268 


$0278 
$C312 
$C3CA 
$C49D 
#$00 

$0258 
$0297 


1571 Internals 


put filetype flag iinto channel 
Prepare 'OK' message 

Compare character with '$' 

Should directory be loaded? 
YES—Get secondary address again 
Load directory as a program? 
YES—Convrt directry to BASIC prqa. 
Set counter f/parameters in comnd 
Save number of directory track 

as current track 

Set start sector of directory as 
current track number 

Open buffer -- read in sector 
Get current drive number 

Set SEQ file flag & save directry 
as a file; end 

Compare char. with '#' 

Direct access channel open? 
YES—Open direct access file 

Set identifier for 

PRG file 

Establish drive O as 

current drive 

Set pointer to last drive 

Read BAM into buffer 

Look for command string after ':' 
Found it? 

YES—Startposition of parameters 
Jump to $D840 

Get number of parameters 
Parameters separated by comma? 
YES—Display 

'30 Syntax Error' 
Set pointer to ':' 
Reached start-of-parameters? 

Set pointer to drive assignment & 
save position 

Look for end-of-command string 
identifier in input buffer 
Number of parameters found; save 
those separated by commas 

Get drive number; note it 

Check drive number | 

Look for file entry in directory 
Clear pointer: 

Length of a record 

File operating mode 


error message 
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D85D 
D860 
D861 
D864 
D866 
D869 
D86A 
D86D 
D86F 
D871 
D873 
Ds764 
D879 
D87B 
D87D 
D87F 
D882 
D884 
D887 
D88A 
D88sc 
D88E 
ps9it 
D894 
D896 
D898 
D89A 
D89D 
D8A0 
D8A2 
D8A4 
D8A7° 
D8AA 
D8AC 
D8AE 
psBit 
D8B4 
D8B7 
D8BA 
D8BD 
D8BF 
D8Ccl 
D8c4 
pscet 
D8C8 
D8CA 
D8CB 


4A 02 


77 O02 
10 
09 DA 


77 02 
07 
04 
3E 
O09 DA 
4C 02 
83 
02 
12 
97 02 
40 
F9 02 
4A 02 
1B 
02 
4A 02 
4A 02 
11 
E7 
07 
4A 02 
80 02 
05 
01 
4A 02 
97 02 
01 
18 
40 D9 
TA 02 
00 02 
58 02 
80 02 
B7 
01 
97 02 
BO 
E7 
80. 


14 


STX 
INX 
CPX 
BCS 
JSR 
INX 
CPX 
BCS 
CPY 
BEO 
JSR 
LDX 
STX 
CPX 
BCS 
STX 
LDA 
STA 
LDA 
BNE 
LDA 
STA 
LDA 
BNE 
LDA 
AND 
STA 
LDA 
BNE 
LDA 
STA 
LDA 
CMP 
BEQ 
JMP 
LDY 
LDA 
STA 
LDA 
BNE 
LDA 
STA 
BNE 
LDA 
AND 
TAX 
BNE 


SO24A 


$0277 
SD876 
SDAO9 


$0277 
$D876 
#504 
$D8B1 
SDA09 
$024C 
$83 
#$02 
$D891 
$0297 
#$40 
$02F9 
$024A 
SD8A7 
#$02 
$024A 
$024A 
SD8A7 
SE7 
#$07 
$024A 
$0280 
SD8A7 
#$01 
SO024A 
$0297 
#$01 
SD8C6 
$D940 


SO27A,X 
$0200,Y 


$0258 
$0280 
$D876 
#$01 
$0297 
$D876 
SE7 
#$80 


SD8E1 


Filetype 

Check next filename 

against number of names on hand 
Any other tasks on hand? 

YES-Get filetype & operating mode 
Check pointer to next filename 
against number of names onhand 
Are all names worked out? 

NO-Test filetype againse REL 

Is there a relative file here? 
Get filetype and operating mode 
Repeat 2ndary address and set it 
up; compare with start-of- 

file channel 

Is channel number >2? 

NO-Set read/write flag 

Flag for ‘illegal BAM' 

set 

Get current filetype 

Is there a DEL file? 

YES-Set PRG file identifier 

as current filetype 

Get filetype 

Is 'DEL' type given? 

YES-Get filetype frm chanel table 
Divide up and 

save 

Track # of sector frm buffertable 
Ts track set? 

NO-Set 'SEQ' identifier 

in current filetype 

Repeat file operation mode and 
compare with value for ‘write! 
Should file be written? 

NO—Open read channel 

Get pointer to next parameter and 
get & store parameter characters 
from input buffer 
Test fileblock track 
Is task set? 

YES-Set read/write 
flag 

Jump to $D876 

Get filetype 

Get ‘wildcard onhand' 
save 

Is there a wildcard in filename? 


flag and 
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ee 


A9 
24 


20 
E7 
06 
B6é 
E3 
80 
03 
E3 
00 
40 
OD 


05 
63 


C8 
D9 
02 


D9 
02 


NO-Test 'File not closed' 
for first name 

Has file been closed? 
NO-Clear fileentry from directory 
Set up for new file 

Track number of first file block 
Is file covered? 

NO-Set up for new file 

Get 1st char from input buffer & 
compare w/Replace command ('@') 
Overwrite pre-existing file? 

Get wildcard flag again 

Is file on hand? 
YES—display 

'63 File Exists' 
Display 

'33 Syntax Error' error message 


flag 


error message 


[D8E6] 


D8F5 
D8F7 
D8F9 
D8FC 
D8FE 
D900 
D902 
D905 
D907 
D90A 
D90C 
D9OE 
D911 
D914 
D917 
D919 
D91B 
D91D 
D91F 
D921 
D923 
D925 
D926 
D928 
D92A 
D92D 
D92F 
D932 


E7 
07 
4A 
67 
04 
63 
DA 
82 
70 
a1 
83 
EB 
94 
C8 
00 
94 
20 
94 
1A 
80 
94 


81 
94 
70 
D8 
60 
DD 


02 


DC 


02 


DO 


02 
D4 


02 


02 


LDA 
AND 
CMP 
BNE 
CMP 
BEQ 
JSR 
LDA 
STA 
LDA 
STA 
JSR 
LDA 
JSR 
LDY 
LDA 
ORA 
STA 
LDY 
LDA 
STA 
INY 
LDA 
STA 
LDX 
LDA 
STA 
LDA 


SE7 
#$07 
$024A 
$D965 
#$04 
$D965 
SDCDA 
$82 
$0270 
#$11 
$83 
SDOEB 
$0294 
$D4C8 
#$00 


($94) ,Y 


#520 


($94),¥Y 


#S1A 
$80 


($94),Y 


$81 


($94),¥Y 


$0270 
$D8 


$0260,X 


SDD 


Overwrite corresponding file entry 


Get filetype of lst filename and 
separate flagbits 

Compare w/corresponding filetype 
Identical? 

YES—Test for relative file value 
Is it relative? 

NO—Open file for writing 

Get # of open channel and save 
as currently-open write channel 
Set # for internal read channel 
(17) as secondary address 

Open read channel 

Get position of current buffer 
and set buffer address 
Initialize buffer pointer 

Get filetype from dir. buffer 
Set 'file open' flagbit and 
write back into file entry 

Set buffer pointer to position of 
new track #; Get track number and 
write in file entry 

Buffer pointer to next position 
Get number of current sector and 
save as value to be entered 

Get current write channel number 
Get file entry sector and assign 
number of file entry 

Get pointer to sector # in entry 
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D934 9D 66 02 STA $0266,X and assign file entry 

D937 20 3B DE JSR SDE3B Current track/sector # of job 
D93A 20 64 D4 JSR $D464 Write file sector 

D93D 4C EF D9 JMP SD9EF Write data to file 

D940! aD 80 02. ~=LDA $0280 Get track number of first entry 
D943 DO 05 BNE $D94A Found the right entry? 

D945 AQ 62 LDA #862 NO—Display 

D947 4C C8 Cl JMP $C1C8 '62 File Not Found' error message 
po4a! ap 97 02 LDA $0297 Determine file operating mode 
D94D c9 03 CMP #$03 and compare with value for 'M' 
D94F FO OB BEQ $D95C Read an unclosed file? 

D951 A9Y9 20 LDA #$20 NO-Set flag for 

D953 24 E7 BIT SE7 "File is not properly closed yet' 
D955 FO 05 BEQ $D95C Is flag set? 

D957 A9 60 LDA #$60 YES—Display 

D959 4C C8 Cl JMP $C1C8 '60 Write File Open' error messge 
D95C2 AS E7 LDA $E7 Get filetype; 

D95E 29 07 AND #$07 isolate file identifier 

D960 CD 4A 02 CMP S$024A Compare with current filetype 
D963 FO 05 BEQ $D96A Identical? 

D965> AQ 64 LDA #$64 NO-Display 

D967 4C C8 Ci JMP $C1C8 '64 Filetype Mismatch' error msge 
p96a! AO 00 LDY #$00 Reset 

D96C 8C 79 02 STY $0279 buffer pointer 

D96F AE 97 02 LDX $0297 Determine file operating mode and 
D972 EO 02 CPX #$02 compare with identifier for 'A!' 
D974 DO 1A BNE $D990 Should data be appended? 

D976 C9 04 CMP #$04 YES-Chk filetype against REL file 
D978 FO EB BEQ $D965 Is it a relative file? 

DOTA Bl 94 LDA ($94),Y NO-Get filetype frm direc buffer 
D97C 29 4F AND #S4F and save file open 

DO9TE 91 94 STA ($94),Y Put filetype back into entry 

D980 A5 83 LDA $83 Get current secondary address; 
D982 48 PHA hang onto it 

D983 AQ 11 LDA #$11 Set internal read channel #(17) 
D985 85 83 STA $83 as current secondary address 

D987 20 3B DE JSR $DE3B Determine current track/sector 
D98A 20 64 D4 JSR $D464 Write sector to diskette 

D98D_ 68 PLA Repeat secondary address and 

D98E 85 83 STA $83 reset 

D990! 20 ao D9 JSR $D9A0 Open file for reading 

D993 AD 97 02 LDA $0297 Determine file operation, compare 
D996 C9 02 CMP #$02 with identifier for 'A' (Append) 
D998 DO 55 BNE SD9EF Connect data to preexisting file? 
D99A 20 2A DA JSR SDA2A YES—Proceed with append and 

D99D 4C 94 Cl JMP $C194 get 'Ok' message ready 
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pe 


[CA26/D990]} 

Open file for reading 

D9AO AO 13 LDY #$13 Turn pointer to side-sector entry 
D9A2 Bl 94 LDA ($94),Y Get track # of lst side-sector & 
D9A4 8D 59 02 STA $0259 save itken 

D9A7 C8 INY Buffer pointer to next byte 

D9A8 Bl 94 LDA ($94),Y Get sector # of first side-sector 
D9AA 8D SA 02 STA $025A and save it 

D9AD C8 INY Buffer pointer to next position 
D9AE Bl 94 LDA ($94),Y Determine length of a record 
D9BO AE 58 02 LDX $0258 Get last record length 

D9B3 8D 58 02 STA $0258 Set new record length 

D9B6 8A TXA Last record length 

D9B7 FO OA BEQ $D9C3 not set? 

D9B9 CD 58 02 CMP $0258 NO-—Compare with current length 
D9BC FO 05 BEQ $D9C3 Reached the last record? 

D9BE A9 50 LDA #$50 YES—Display 

D9CO 20 C8 Cl JSR $C1C8 'SORecord Not Present' err.messge 
bD9c3* AE 79 02. LDX $0279 Number of filenames (0) 

D9C6 BD 80 02 LDA $0280,X Get current track number and 
D9C9 85 80 STA $80 set 

D9CB_ BD 85 02 LDA $0285,X Get current sector number and 
DO9CE 85 81 STA $81 set it 

D9DO 20 46 DC JSR $DC46 Open read channel 

D9D3 A4 82 LDY $82 Get channel number 

D905 AE 79 02 LDX $0279 Number of files worked on 

D9D8 BS D8 LDA $D8,X Get sector number and 

D9DA 99 60 02 STA $0260,Y transfer 

D9DD BS DD LDA $DD,X Get position in file entry and 
D9DF 99 66 02 STA $0266,Y transfer 

D9E2 60 RTS Return from this subroutine 
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SS SSS So eens 


LDA 
AND 
STA 
JSR 
JSR 
LDA 
CMP 
BCS 
JSR 
LDA 
STA 
LDA 


Establish number of disk drive 
to be utilized 

and save as current drive 

Open channel for reading 

Enter file in directory 

Get current 2ndary address & test 
for start-of-data channel 
Should a LOAD or SAVE be done? 
YES—Get track/sector from job 
Save track # of last track of 
last access 

Get current drive number and 
save as last active drive 

Save current sector as the last 
accessed 


Prepare 'OK' message 


Set up filetype and file operation as command string 


LDY 
LDA 
LDY 
DEY 
BMI 
CMP 
BNE 
STY 
LDY 
DEY 
BMI 
CMP 


$O27A,X 
$0200,Y 


#504 


SDA1C 


SFEB2,Y 


$DA11 
$0297 
#505 


SDA29 


SFEB6, Y 


SDA1E 
SO24A 


Get position of first parameter 
Get character from input buffer 
Set counter to # operating modes 
Turn counter to next identifier 
All operating modes checked? 
NO-Compare w/file operations mode 
Identical? 

YES-Save position in input string 
and set counter for filetype 

Turn counter to next filetype 

All filetypes already checked? 
NO—Compare with filetype 
Identical? 

YES—Save position 

Return from this subroutine 


[D8D6/D8DE] 
Open file for writing 
D9E3 AS E2 
D9E5 29 01 
D9E7 85 7F 
D9E9 20 DA DC 
D9EC 20 E4 D6 
D9EF? A5 83 
D9F1 C9 02 
D9F3 BO ll 
D9F5 20 3E DE 
D9F8 AS5 80 
D9FA 85 7E 
D9FC AS 7F 
DOFE 8D 6E 02 
DAO1l AS 81 
DAO3 8D 6F 02 
pAo6! 4c 99 cl 
[D866/D873] 
DAO9 BC 7A 02 
DAOC B9 00 02 
DAOF AO 04 
DA111 88 

DA12 30 08 
DA14 D9 B2 FE 
DA17 DO F8 
DA19 8C 97 02 
pAic! ao 05 
DA1E: 88 

DA1F 30 08 
DA21 D9 B6 FE 
DA24 DO F8 
DA26 8C 4A 02 
pa291 60 
[C996/D99A/DA32] 
Prepare file for 
DA2A 20 39 CA 
DA2D AQ 80 
DA2F 20 A6 DD 
DA32 FO F6 
DA34 20 95 DE 
DA37 A6 81 
DA39 £8 


Append 


JSR 
LDA 
JSR 
BEQ 
JSR 
LDX 
INX 


$SCA39 
#$80 
SDDA6 
SDA2A 
SDE95 
$81 


Read data byte 

Test flag for 

‘EOI reached' 

Has last byte been read? 
YES-—Find current track & sector 
Get pointer to correct data reg. 
and increment by 1 
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ae 


D1 


D4 


S$DA42 
$D1A3 
#$02 
$D4C8 
$82 
#$01 
SF2,X 
#$80 
$82 
$83 


$022B,X 


(if SFF, then make it 0 again) 

Is the sector completely filled? 
YES-Write sector to diskette 

Set buffer pointer to beginning 
of data register 

Get current channel number 

Set write flag in 

channel status table 

Combine write flag 

with channel number 

Get current secondary address and 
assign status byte of 2ndary adr. 
Return from this subroutine 


DA3A 8A 
DA3B DO 
DA3D 20 
DA4O AQ 
pa42+ 20 
DA45 AG 
DA47 AQ 
DA49 95 
DA4B AQ 
DA4D 05 
DA4F AG 
DA51 9D 
DA54 60 
[D7FC] 

Transmit 
DA55 AQ 
DA57. 8D 
DASA AQ 
DASC AE 
DASF CA 
DA60 FO 
DA62 CA 
DA63 DO 
DA65 AD 
DA68 20 
DA6B 30 
pa6p! 85 
DA6GF EE 
DA72 EE 
DA75 EE 
DA78 AQ 
DA7A 85 
DA7C AQ 
DATE 8D 
DA81 8D 
DA84 DO 
DA862 20 
DA89 DO 
DA8B 20 
DA8E AO 
pagot gs 
DA91 88 
DA92 8c 
DA95 20 
DA98 20 


directory to computer 


OC 
2A 
00 
74 


OB 


21 
O01 
BD 
19 
E2 
77 
78 
TA 
80 
E7 
2A 
00 
O01 
18 
ES 
05 
DC 
03 


7A 
00 
98 


02 


02 


02 
C3 


02 
02 
02 


02 
02 


Cl 


C2 


02 
C2 
C3 


LDA 
STA 
LDA 
LDX 
DEX 
BEQ 
DEX 
BNE 
LDA 
JSR 
BMI 
STA 
INC 
INC 
INC 
LDA 
STA 
LDA 
STA 
STA 
BNE 
JSR 
BNE 
JSR 
LDY 
DEY 
DEY 
STY 
JSR 
JSR 


#S0C 
$022A 
#$00 
$0274 


SDA6D 


SDA86 
$0201 
$C3BD 
SDA86 
SE2 
$0277 
$0278 
$O27A 
#$80 
SE7 
#S2A 
$0200 
$0201 
SDA9E 
SC1E5 
$DA90 
$C2DC 
#$03 


SO27A 
$C200 
$C398 


. Set flag for 


Set command 

number 12 

Drive number 

Get length of command string and 
compare with 1 

Does command only have one char.? 
NO-—Compare to 2 

Does command have only 2 chars? 
YES-—Get 2nd character and check 
for drive number 

Is drive assignment error-free? 
YES—Save drive | 
Pointer to first 

and second parameter in command 
string--move to next position 
'file properly 
closed' 

Set '*' wildcard as filename in 
command 

string 

Jump to SDA9E 

Seek ':' in command string 

Found a colon? 

YES—Clear pointr f/command string 
Position of first filename (1) 
Set pointer to position 

of name 

Set pointer to first filename 
Set pointer f/parameter analysis 
Pointer to filename and filetype 
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$C320 
SC3CA 
$C7B7 
SC49D 
SEC9OE 
$D137 
$82 


$023E,X 


S7F 
$028E 
#504 
SEC,X 
#500 
SA3 


1571 Internals 


Get drive # from command string 
Prep drive for access 

Produce directory title 

Get filename from directory 
Ascertain directory line 

lst byte of directory from buffer 
Current channel number 

Prep byte for output 

Save current drive as drive used 
for last access 

Set flag for PRG file 

and put in channel table 

Get back pointer in input 

buffer 

Return from this subroutine 


[8151/9193/91A3/91B9/A9F1/BF60/E8CE] 
file 


Close 
DACO 
DAC2 
DAC5 
DAC7 
DAC9 
DACB 
DACE 
papit 
pap4t 
DAD6 
DAD8 
DADB 
DADD 
DADF 


AQ 
8D 
A5 
DO 


00 
F9 
83 
OB 
00 
54 
27 
DA 
OF 
14 
02 
83 
02 
FO 
6C 
03 
94 
AD 


02 


02 
D2 
D4 


DB 


LDA 
STA 
LDA 
BNE 


#$00 
SO2F9 
$83 
SDAD4 
#$00 
$0254 
$D227 
SD4DA 
#S0F 
SDAEC 
SDBO02 
$83 
#$02 
SDAD1 


Set 'illegal BAM'! 

flag 

Get current secondary address 
LOAD command? 

YES-Clear 'Directory will be 
displayed' flag 

Close channel 

Close internal read/write chanels 
Compare secondary address w/ 15 
Command channel addresssed? 
NO-—Close file 

Get current secondary address 
Compare with begin.of filechannel 
Channel have LOAD/SAVE (0/1)? 
NO-Get error flag and test it 

Run into an error? 

NO—'Ok' message displayed 
Display error message 
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[DAD6] 

Close all files 

DAEC AQ OF - LDA #S0E Highest 2ndary address for files 
DAEE 85 83 STA $83 set as current secondary address 
pAFO! 20 02 DB. JSR $DBO02 Close file 

DAF3 C6 83 DEC $83 Go to next secondary address 
DAF5 10 F9 BPL SDAFO All channels closed? 

DAF7 AD 6C 02 LDA $026C YES-—Get error flag and test 

DAFA DO 03 BNE SDAFF Closures done without errors? 
DAFC 4C 94 Cl JMP $C194 YES-—Display 'OK' message 

DAFF! 4c AD Cl JMP $C1AD Display error message 
(COF7/DADB/DAFO] 

Files declared through secondary address, closed 

DBO2 A6 83 LDX $83 Get current secondary address and 
DBO4 BD 2B 02 LDA $022B,X determine corresponding status 
DBO7 C9 FF CMP #5FF Compare with 'Free channel' value 
DBO9 DO O01 BNE S$DBOC Is channel out? 

DBOB 60 RTS NO-Return from this subroutine 
pBoc! 29 oF AND #5S0F Determine clear channel number 
DBOE 85 82 STA $82 and save it 

DB10 20 25 Dl JSR $D125 Get filetype & compare w/directry 
DB13 C9 07 CMP #S$07 access identifier 

DB15 FO OF BEQ $DB26 Identical? 

DB17 C9 04 CMP #504 NO-Check with value for REL file 
DB19 FO 11 BEQ SDB2C Identical? 

DB1B 20 07 Dl JSR $D107 NO-—Check channel f/write channel 
DB1E BO 09 BCS $DB29 Is the write channel open? 

DB20 20 62 DB JSR S$DB62 YES-Write to end 

DB23 20 AS DB JSR $DBA5 Close directory entry 

pB261 20 F4 EE JSR $EEF4 Write BAM back to diskette 

pB291 4c 27 D2 = JMP $D227 Close channel 

pB2c! 20 Fl DD JSR $DDF1 Write current buffer to diskette 
DB2F 20 1E CF JSR SCF1E Apple new buffer 

DB32 20 CB El JSR SE1CB Get position of last record 

DB35 A6 D5 LDX $D5 Get number of last side-sector 
DB37 86 73 STX $73 and save 

DB39 E6 73 INC $73 Choose next side-sector 

DB3B AQ O00 LDA #$00 Direct zeropage addresses as 
DB3D 85 70 STA $70 temporary 

DB3F 85 71 STA $71 storage 

DB41 AS D6 LDA $D6 Get position of side-sector 

DB43 38 SEC consider number of bytes 

DB44 E9 OE SBC #SOE for chaining of 

DB46 85 72 STA $72 other side-sectors 

DB48 20 51 DF JSR SDF51 Calculate number of file blocks 
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Current channel number 


Put # of relative file blocks 
(low-byte) in Table 

Copy 

high-byte 


Check filetype channel flag 
for ‘entry correct' 

Is flag in filetype set? 
YES—Realize directoy entry 
Close channel 


[DB20] 


Write last sector of 


DB62 
DB64 
DB66 
DB68 
DB6A 
DB6D 
DB6F 
DB71 
DB73 
DB762 
DB79 
DB7B 
DB7D 
DB80 
DB82 
DB84 
DB86 
pBsst 
DB8A 
pBscl 
DB8D 
DB8F 
DB90 
DB92 
DB95 
DB98 
DB99 


A6 
B5 
15 
DO 
20 
C9 


82 
BS 
BB 
0c 
E8 
02 
05 
OD 
Fl 
E8 
02 
OF 
1E 
82 
B5 
02 
BB 
B5 
00 


01 


00 


C8 
Fl 


D4 


CF 
D4 


CF 


LDX 
LDA 
ORA 
BNE 
JSR 
CMP 
BNE 
LDA 
JSR 
JSR 
CMP 
BNE 
JSR 
LDX 
LDA 
BNE 
DEC 
DEC 
LDA 
SEC 
SBC 
PHA 
LDA 
JSR 
JSR 
PLA 


a file to diskette 


$82 
$B5,X 
SBB, X 
SDB76 
SD4E8 
#$02 
SDB76 
#S0D 
SCFF1 
SD4E8 
#$02 
SDB8C 
SCFIE 
$82 
$B5,X 
SDB88 
SBB, X 
$B5,X 
#$00 


#501 
#500 


$D4C8 
SCFF1 


Get current channel number 

Get channel-arranged 

record number and test it 

Is record number set? 

NO-—Get current buffer pointer and 
compare with start of filerange 
Is the sector still empty? 
YES-Write empty record (<RETURN>) 
to buffer 

Get buffer pointer; compare with 
start-of-filerange 

Is the sector still empty? 
YES—Open new buffer 

Determine current channel number 
Predetermined record # (lo-byte) 
Is low-byte = zero? 

YES—Decrement hi-byt/record no.-1 
Decrement low-byte by 1 

Value for ‘buffer full’ 

Calculate number of applicable 
filebytes per sector 

and note it 

Set buffer pointer for 

connected bytes 

Write identifier for last sector 
Get # of applicable filebytes 

and write to sector 

Write sector back to diskette and 
wait until job is completed 

Open new buffer 
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directory entry after write operation 


[DB23/DB5C] 
Close 

DBA5 A6 82 
DBA7 8E 70 
DBAA AS 83 
DBAC 48 
DBAD BD 60 
DBBO 85 81 
DBB2 BD 66 
DBB5 8D 94 
DBB8 BS EC 
DBBA 29 01 
DBBC 85 7F 
DBBE AD 85 
DBC1 85 80 
DBC3 20 93 
DBC6 48 
DBC7 85 F9 
DBC9 20 60 
DBCC AO OO 
DBCE BD EO 
DBD1 85 87 
DBD3 AD 94 
DBD6 85 86 
DBD8 Bl 86 
DBDA 29 20 
DBDC FO 43 
DBDE 20 25 
DBE1 C9 04 
DBE3 FO 44 
DBE5 Bl 86 
DBE7 29 8F 
DBEQ9 91 86 
DBEB C8 
DBEC Bl 86 
DBEE 85 80 
DBFO 84 71 
DBF2 AO 1B 
DBF4 Bl 86 
DBF6 48 
DBF7 88 
DBF8 B11 86 
DBFA DO OA 
DBFC 85 80 
DBFE 68 
DBFF 85 81 


02 


02 


02 
02 


FE 


DF 


D4 


FE 


02 


D1 


LDX 
STX 
LDA 
PHA 
LDA 
STA 
LDA 
STA 
LDA 
AND 
STA 
LDA 
STA 
JSR 
PHA 
STA 
JSR 
LDY 
LDA 
STA 
LDA 
STA 
LDA 
AND 
BEQ 
JSR 
CMP 
BEQ 
LDA 
AND 
STA 
INY 
LDA 
STA 
sTY 
LDY 
LDA 
PHA 
DEY 
LDA 
BNE 
STA 
PLA 
STA 


$82 
$0270 
$83 


$0260,X 


$81 


$0266,X 


$0294 
SEC,X 
#$01 
S7F 
SFE85 
$80 
SDF 93 


SF9 
$D460 
#$00 


SFEEO, X 


$87 
$0294 
$86 


($86),¥Y 


#$20 
$DC21 
$D125 
#504 
$DC29 


($86) ,Y 


#$8F 


($86) ,¥Y 


($86),Y 


$80 
$71 
#$51B 


($86),Y 


($86) ,Y 


SDC06 
$80 


$81 


Get current channel number and 
retain it 

Get # of current 2ndary address 
and retain it 

Get # of directry sector f/entry 
and set as current sector 

Get entry positiion in directory 
and set as current buffer pointer 
Get filetype of channel 

Determine drive number and 

take up as current drive 

Get number of directory track 

and set up as current track 

Get and save 

buffer number 

Set current buffer number 

Read directory sector into buffer 
Reset position pointer 

Get buffr address (hi-byte), take 
as high-byte of buffer pointer 
Get current position in buffer & 
set as low-byte 

Get filetype frm directry entry & 
check for 'file open' flag 

File already closed? 

NO-—Test filetype further and test 
against value for relative file 
Identical? 

NO-—Get entire filetype pointer 
Clear flags 

and filetype again back to entry 
Buffer pointer to next position 
Get track # of first sector/file 
and save as current track 

Save current buffer pointer 

Set buffer pointer of sector from 
overwrite and get number 

Save sector number 

Set buffer pointer to appropriate 
track and get track number 

No overwrite entry set? 

YES-—Get track & sector number 
again, and put into 

current pointer 
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DCO1l AQ 67 LDA #567 Display '67 Illegal Track 

DCO3 20 45 E6 JSR S$E645 Or Sector' error message 

pceoe! 48 PHA Save track number 

DCO7 A9 00 LDA #$00 Clear track and 

DCO9 91 86 STA ($86),Y sector number 

DCOB C8 INY of the file entry to be 

DCOC 91 86 STA ($86),Y overwritten 

DCOE 68 PLA Get track number again 

DCOF A4 71 LDY $71 Reset buffer pointer 

DC11l 91 86 STA ($86),Y Set track to first sector of file 
DC13 C8 INY Buffer pointer to next byte 

DC14 Bl 86 LDA ($86),Y Get number of old sector and 
DC16 85 81 STA $81 save it 

DC18 68 PLA | Get # of first sector of file 
DC19 91 86 STA ($86),Y and store in entry 

DC1B 20 7D C8 JSR $C87D Clear old file sectors 

DC1E 4C 29 DC JMP $DC29 Close file 

pe211 Bi 86 LDA ($86),Y Get filetype from entry 

DC23 29 OF AND #S0F Isolate file identifiers 

DC25 09 80 ORA #$80 Set 'file closed' flag and set up 
DC27 91 86 STA ($86),Y as new filetype 

DC292 AE 70 02 LDX $0270 Repeat number of current channel 
DC2C AO 1C LDY #$1C Set buff pntr to block assign (28) 
DC2E BS BS LDA $B5,X Get # of blocks to a file(lobyte) 
DC30 91. 86 STA ($86),Y and write to entry 

DC32 C8 INY Set buffer pointer to next byte 
DC33 BS BB LDA $BB,X Get hi-byte of block # and write 
DC35 91 86 STA ($86),Y to entry | 
DC37 68 PLA Recall current buffer number -- 
DC38 AA TAX note it 

DC39 AQ 90 LDA #$90 Jobcode for ‘write sector' 

DC3B 05 7F ORA $7F Enter current drive in jobcode 
DC3D 20 90 D5 JSR $D590 Execute job 

DC40_ 68 PLA Repeat and reset current 

DC41 85 83 STA $83 secondary address 

DC43 4C 07 Dl JMP $D107 Get channel number 


[D47E/D7E4/D80B/D9D0/DC98:DD8A]} 
Open channel to read a file 


DC46 AQ Ol LDA #$01 Buffer number 

DC48 20 E2 Dl JSR $D1E2 Open channel for reading 

DC4B 20 B6é DC JSR SDCB6 Set channel pointer 

DC4E AD 4A 02 LDA $024A Get current filetype and 

DC51 48 PHA note it 

DC52 OA ASL A Establish filetype entry for 

DC53 O05 7F ORA S7F chanel table;concentrate on drive 
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DC55 95 
DC57 20 
DC5A AG 
DC5C AS 
DC5E DO 
DC60 AS 
DC62 9D 
pc65+ 68 
DC66 C9 
DC68 DO 
DC6A A4 
DC6C BQ 
DC6F 09 
DC71 99 
DC74 AD 
DC77 95 
DC79 20 
DC7C 10 
DC7E 4c 
pesil aé 
pDc83 95 
pcs85 AC 
pDcs8s 84 
DC8A AC 
DC8D 84 
DC8F 20 
DC92 20 
DC95 20 
pegs! a6 
DC9A AQ 
pc9c 95 
DCSE Ag 
DCAO 20 
DCA3 20 
DCA6 4C 
pca9t 20 
DCAC AG 
DCAE 9D 
DCB1 AQ 
DCB3 95 
DCB5 60 


EC 
9B 
82 
80 
05 
81 
44 


04 
3F 
83 
2B 
40 
2B 
58 
C7 
8E 
03 
OF 
82 
CD 
59 
80 
oA 
81 
D3 
73 
99 
82 
02 
Cl 
00 
C8 
53 
3E 
56 
82 
3E 
88 
F2 


DO 


02 


02 


02 
02 


D2 


D2 


02 


02 


D6 


DE 
DS 


SEC,X 
SDO9B 
$82 
$80 
$DC65 
$81 


$0244,X 


#504 
SDCA9 
$83 


$022B,Y 


#$40 


$022B,Y 


$0258 
$C7,X 
$D28E 
$DC81 
SD20F 
$82 

SCD,X 
$0259 
$80 

$025A 
$81 

$D6D3 
$DE73 


$D599° 


$82 
#$02 
$C1,X 
#500 
SD4C8 
$E153 
SDE3E 
$D156 
$82 


$023E,X 


#588 
SF2,X 


and assign to channel table 

Read sector in buffer 

Get current channel number 
Determine current track number 
Are there other sectors onhand? 
NO—Get number of applicable 
filebytes and save them 

Call back filetype & compare with 
value for relative files 

Is it a relative file? 

YES—Get present secondary address 
Get preset channel number 

Read flag 

Assign secondary address 

Get record length and 

assign to channel 

Open new buffer for side-sector 
Still a free buffer? 
NO—Display'70 No Channel' error 
Number of current channel 

Save buffer number 

Get track # of lst side-sector & 
set as current track number 

Get sector number and store as 
current sector 

Track and sector in job loop 
Read sidesector frm disk to buffr 
Wait until job is run 

Get current channel number and 
initialize record pointer 

in table 

Pointer to start-of-sector 

Set buffer pointer 

Read first record and prepare it 
Set byte for output and pointer 
Get byte from buffer 

Get current channel number 

Send byte for output 

Set output flag in table 

with channel status 

Return from this subroutine 
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LDX 
LDA 
ASL 
BMI 
TAY 
LDA 
STA 
LDA 
ORA 
STA 
ASL 
BMI 
TAY 
LDA 
STA 


‘channel open' pointer 


$82 
SA7,X 
A 
$DCC3 


#502 


$0099,Y 


SAE,X 
#$80 
SAE,X 
A 
SDCD2 


#502 


$0099,Y 


#$00 
$B5,X 
SAQ7F 


Get channel number and determine 
preset buffer 

Test ‘buffer open' 
Buffer covered? 
NO-- 

Set buffer pointer to start of 
file range (byte $02) 

Get buffer status and 

set 'buffer in- 

active' flag 

Test bit 6 

Should buffer be written back? 
NO-—Save buffer number 

Set buffer pointer (low-byte) to 
start-of-filerange 

Clear number of blocks free 
(lLow-byte) 

Clear number of blocks free 
unused 


flag 


Open channel to write to file 


[DC4B/DCE5] 
Initialize 
DCB6 A6 82 
DCB8 BS A7 
DCBA OA 

DCBB 30 06 
DCBD A8 

DCBE A9 02 
DCCO 99 99 00 
pcc3! BS AE 
Dcc5 09 80 
DCC7 95 AE 
DCC9 OA 

DCCA 30 06 
pccc Ag 

DCCD A9 02 
DCCF 99 99 00 
pep2+ ag 00 
DCD4 95 BS5 
DCD6 4C 7F AQ 
DCD9 EA 
[D48A/D902/D9E9}] 
DCDA 20 AQ Fl 
DCDD AQ 01 
DCDF 20 DF Dl 
DCE2 20 DO D6 
DCE5 20 B6 DC 
DCE8 A6 82 
DCEA AD 4A 02 
DCED 48 

DCEE 0A 

DCEF 05 7F 
DCF1 95 EC 
DCF3 68 

DCF4 C9 04 
DCF6 FO 05 
DCF8 AQ 01 
DCFA 95 F2 
DCFC 60 

perp! a4 83 
DCFF B9 2B 02 
DD02 29 3F 
DDO04 09 40 
DDO06 99 2B 02 


JSR 
LDA 
JSR 
JSR 
JSR 
LDX 
LDA 
PHA 
ASL 
ORA 
STA 
PLA 
CMP 
BEQ 
LDA 
STA 
RTS 
LDY 
LDA 
AND 
ORA 
STA 


SF1A9 
#$01 
SD1DF 
SD6DO 
SDCB6 
$82 
SO24A 


A 
S7F 
SEC, X 


#$04 
SDCFD 
#S01 
SF2,X 


$83 


$022B,Y 


#5$3F 
#540 


$022B,Y 


Look for free sector in BAM 
Number of buffers needed 

Cover buffer 

Trek and sector to job loop 
Initialize channel pointer 
Number of present channel 

Get current filetype 

and save 

Take drive number into 

filetype and assign 

to table of that channel 

Get original filetype and check 
for value for relative file 

Is there a relative file? 
NO-Set write 

flag 

Return from this subroutine 

Get current secondary address 
and assign channel 

Reset flag bits in channel status 


Set read 


flag 
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DDO9 AD 
DDOC 95 
DDOE 20 
DD11 10 
DD13. 4c 
pp16! a6 
DD18 95 
DD1A 20 
DD1D 20 
DD20. AS 
DD22. 8D 
DD25 AS 
DD27 8D 
DD2A AG 
DD2C_ BS 
DD2E 20 
DD31 AQ 
DD33 20 
DD36 AQ 
DD38 20 
DD3B AQ 
DD3D 20 
DD40. AQ 
DD42 20 
DD45 AD 
DD48 20 
DD4B. AS 
DD4D 20 
DD50. «AS 
DD52 20 
DD55 AQ 
DD57 20 
DD5A 20 
DD5D AS 
DD5F 20 
DD62 AS 
DD64 20 
DD67 20 
DD6A 20 
DD6D Ag 
DD6F 20 
DD72 AG 
DD74 38 
DD75 AQ 
DD77. FS 


58 
C7 
8E 
03 
OF 
82 
CD 
Cl 
1E 
80 
59 
81 
5A 
82 
CD 
D3 
00 
EQ 
00 
8D 
11 
8D 
00 
8D 
58 
8D 
80 
8D 
81 
8D 
10 
EQ 
3E 
80 
8D 
81 
8D 
6C 
99 
02 
C8 
82 


00 
C7 
Cl 


02 


D2 


D2 


DE 


Fl 


02 


02 


D6 


DE 


DD 


DD 


DD 


02 


DD 


DD 


DD 


DE 
DE 


DD 
DD 
DE 


DS 


D4 


Get length of a record and 

save it 

Look for a buffer 

Found a free buffer? 

NO-—Display '70 No Channel' error 
Get current channel number and 
connect buffer for side-sector 
Clear buffer contents 

Look for free BAM sector 

Store track # of the sector as 
the track for first side-sector 
Number of sector marked as sector 
number for first side-sector 

Get current channel number 

Get # of corresponding buffer 
Track & sector #'s to job loop 
Set buffer pointer to start- 
of-buffer 

Write identifier f/last sector to 
buffer 

Put # of applicable side-sector 
bytes in buffer (17) 

Transfer number of side-sector 
to buffer 

Enter record length 

in side-sector 

Store current track number 

in side-sector 

Store current sector number 

in side-sector 

Set buffer pointer to record 
data in side-sector 

Get track & sector of last job 
Write track # of lst file sector 
in side-sector 

Take number of first file sector 
into side-sector 

Write side-sector to diskette 
Wait until job is run 

Set current buffer pointer to 
start of filerange 

Get number of current 

channel 

Initialize accumulator and 

calc. & set pos. of next record 
from record length 
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DD7B 20 E2 E2 JSR SE2E2 Apply record to sector 

DD7E 20 19 DE JSR $DE19 Set chaining 

DD81 20 S5E DE JSR SDESE Write sector to diskette; wait 
DD84 20 99 D5 JSR $D599 intil job is run 

DD87 20 F4 EE JSR SEEF4 Write new BAM to diskette 
DD8A 4C 98 DC JMP S$DC98 Display return message 


[DD38/DD3D/DD42/DD48/DD4D/DD52/DD5F/DD64/E3FA/E3FE] 
Write a byte to current side-sector 


DD8D 48 PHA Save byte 

DD8E A6 82 LDX $82 Get current channel #, &determine 
DD90 BS CD LDA S$CD,X corresponding buffer 

DD92 4C FD CF JMP SCFFD Transfer byte in buffer 


[Original jump is not used in DOS] 

Channel number in filetype flag set (Carry=1) or cleared (Carry=0) 
DD95 90 06 BCC S$DD9D Flags cleared? 
[CA4F/DD97/E01A/E0A0/E107/E25F] 

Value combined in filetype (Bit =1: set) 


DD97 A6 82 LDX $82 NO-—Get number of current channelé& 
DD99 15 EC ORA SEC,X put into filetype flag 
DD9B DO O06 BNE SDDA3 Jump to $DDA3 


[CFAC/DD95/DFD2/E003/E0ED/E21B] 
Remove value from filetype flag (Bit =1: taken out) 


DD9D A6 82 LDX $82 Get current channel number 
DDOF 49 FF EOR #SFF and invert it 

DDA1l 35 EC AND SEC,X Mask filetype flag number 
DDA3 95 EC STA SEC,X Set new filetype 

DDAS5- 60 RTS Return from this subroutine 


[C9DD/DA2F /DB57/DFD7/EOAD/EOBE/EOF5/E122/E26A] 
Check for set filetype flag (flag-value in accumulator) 


DDA6 A6 82 LDX $82 Get current channel number and 
DDA8 35 EC AND SEC,X test corresponding flag 
DDAA 60 RTS Return from this subroutine 


[CF4C/E052/E060] Test whether jobcode is set up for writing 


DDAB 20 93 DF JSR S$DF93 Get number of present buffer and 
DDAE AA TAX save it 

DDAF BD 5B 02 LDA $025B,X Get last jobcode from buffer and 
DDB2 29 FO AND #S5F0 and prepare command bits 

DDB4 C9 90 CMP #$90 Compare with write value 

DDB6~ 60 RTS Return from this subroutine 
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[C835] 

Test file pointer 

DDB7 A2 00 LDX #S00 Set secondary address 

ppB9! 86 71 STX $71 and note it 

DDBB BD 2B 02 LDA $022B,X Get matching channel number 

DDBE C9 FF CMP #SFF Compare with "channel free" value 
DDCO DO O08 BNE SDDCA Is channel covered? 

ppc23 A6é 71 LDX $71 YES—Repeat 2ndary address number& 
DDC4 E8 INX choose next address 

DDC5 EO 10 CPX #$10 Compare with maximum address +1 
DDC7 90 FO BCC SDDB9 Is 2ndary addrs in allowed range? 
DDC9_ 60 RTS NO—Return from this subroutine 
ppca! 86 71 STX $71 Save free secondary address 

DDCC 29 3F AND #S$3F Determine channel number 

DDCE A8 TAY and note it 

DDCF B9 EC 00 LDA SOOEC,Y Get filetype flag and chosen 
DDD2 29 O01 AND #S01 disk drive number 

DDD4 85 70 STA $70 Save drive number 

DDD6 AE 53 02 LDX $0253 Entry number 

DDD9 BS E2 LDA SE2,X Get standard drive's 

DDDB 29 O1 AND #S$01 channel and compare with 

DDDD C5 70 CMP $70 drive chosen 

DDDF DO El BNE S$DDC2 Identical? 

DDE1 B9 60 02 LDA $0260,Y YES-—Get directory sector number 
DDE4 D5 D8 CMP $D8,X and compare with sector of entry 
DDE6 DO DA BNE SDDC2 Identical? 

DDE8 B9 66 02 LDA $0266,Y YES—Get position of entry and 
DDEB D5 DD CMP SDD,X test for position in directory 
DDED DO D3 BNE S$DDC2 Identical? 

DDEF 18 CLC YES—-Flag for all pointers OK 
DDFO 60 RTS Return from this subroutine 
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[DB2C/E2AA/E454] 

Write buffer to diskette 

DDF1 20 9EF DF JSR SDF9E Test buffer status 

DDF4 50 06 BVC SDDFC Has data in buffer been changed? 
DDF6 20 SE DE JSR SDES5E YES-write sector to diskette 
DDF9 20 99 D5 JSR $D599 Wait until job is executed 
ppFc! 60 RTS Return from this subroutine 
[E3AC/E3BF] 

Set chained bytes which point to next sector 

DDFD 20 2B DE JSR SDE2B Set current buffer pointer 

DEOO AS5 80 LDA $80 Transfer track # of next sector 
DEO2 91 94 STA ($94),Y to buffer 

DEO4 C8 INY Buffer pointer to next position 
DEO5 AS 81 LDA $81 Write number of next sector to 
DEO7 91 94 STA ($94),Y current buffer 

DEO9 4C 05 El JMP S$E105 Buffer marked as 'changed! 
[E2AD/E3D7] 

Get linked bytes, which point to the next sector 

DEOC 20 2B DE JSR S$DE2B Set current buffer pointer 

DEOF Bl 94 LDA ($94),Y Get track # of next sector from 
DE11 85 80 STA $80 buffer and save it down 

DE13 C8 INY Set buffer pointer to next byte 
DE14 Bl 94 LDA ($94),Y Get # of next sector from buffer; 
DE16 85 81 STA $81 Save as current sector 

DE18 60 RTS Return from this subroutine 
[DD7E/E3D1] 

Set indicator for last sector in linked bytes 

DE19 20 2B DE JSR S$DE2B Set current buffer pointer 

DEiC A9 00 LDA #$00 Write identifier for last sector 
DE1E 91 94 STA ($94),Y to the buffer 

DE20 C8 INY Buffer pointer to next byte 
DE21 A6 82 LDX $82 Get current channel number 

DE23 B5 Cl LDA $C1,X Get # of applicable file bytes 
DE25 AA TAX from table and 

DE26 CA DEX correct it 

DE27 8A TXA (including 0) 

DE28 91 94 STA ($94),Y Write number to buffer 

DE2A_ 60 RTS Return from this subroutine 
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[DDFD/DEOC/DE19/E1B2/E2E2] Set current buffer's pointer to zero 
20 93 DF 


DE2B 
DE2E 
DE2F 
DE30 
DE32 
DE34 


OA 
AA 
B5 9A 
85 95 
A9 00 


JSR 
ASL 
TAX 
LDA 
STA 


SDF 93 
A 


S9A,X 
$95 
#500 


Get buffer number and ee 
double it (pointer table works 
with 2-byte values) 

Get hi-byte of buffer address and 
send to buffer pointer 

Set low-byte to start-of- 

buffer 

Reset index pointer to beginning 
Return from this subroutine 


[C5E8/C634/D48D/D6F4/D937/D987 ] 


Get current track and sector of current job 
DE3B 20 EB DO 
{[D9F5/DCA6/DD5A/E2D0/E3E0/E824/E840/F11E}) 

Get track and sector 
20 93 DF 


DE3E 
DE41 
DE43 
DE44 
DE45 


85 F9 
OA 
A8 
BS 06 


JSR 


JSR 
STA 
ASL 
TAY 
LDA 


SDOEB 


Get channel # of 2ndary address 


of current job 


SDF 93 
SF9 
A 


$0006,Y 


$80 


$0007,Y 


$81 


Determine corresponding buffer # 
and save as current buffer 

Double buffer # (track/sector 
table works with 2-byte values) 
Get track number of current job & 
save as current track number 

Get concurrent sector number & 
take on as current sector 

Return from this subroutine 


[E4A6/DE57:CAA9, CF5A, E057,E065,E075/DE5E:COBB, CAC3, DD81, DDF6, E047, E3B3] 
[E3D4, E4ED/DE6C :DD67, E42D/DE73 :DC92] 
Give jobcodes to jobloop 


DE50 
DE52 
DE55 
DE57° 
DE59 
DESC 
DESE® 
DE60 
DE63 
DE65 
DE67 
DE6A 
DE6C2 
DE6E 
DE71 
DE731 


A9 90 
8D 4D 
DO 28 
AQ 80 
8D 4D 
DO 21 
AQ 90 
8D 4D 
DO 26 
A9 80 
8D 4D 
DO 1F 
A9 90 
8D 4D 
DO 02 
AQ 80 


02 


02 


02 


02 


02 


LDA 
STA 
BNE 
LDA 
STA 
BNE 
LDA 
STA 
BNE 
LDA 
STA 
BNE 
LDA 
STA 
BNE 
LDA 


#$90 
$024D 
SDE7F 
#$80 
$024D 
SDETF 
#$90 
$024D 
SDE8B 
#$80 
$024D 
SDE8B 
#$90 
$024D 
SDE75 
#$80 


Set jobcode for 
"write sector' 
Jump to SDE7F 

Set ‘read sector' 
jobcode 

Jump to SDE7F 

Set ‘write sector' 
jobcode 

Jump to SDE7F 

Set jobcode to read 
sector 

Jump to SDE7F 

Set 'write sector' 
jobcode 

Jump to SDE7F 

Set ‘read sector' 
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DE75 8D 4D 02 STA $024D jobcode 

DE78 A6 82 LDX $82 Get current channel number 

DE7A B5 CD LDA SCD,X Find out number of third buffer 
DE7C AA TAX and save it down 

DE7D 10 13 BPL SDE92 Is buffer used? 

DE7F2 20 DO D6 JSR $Dé6DO NO-Track & sector to job loop 
DE82 20 93 DF JSR SDF93 | Get number of current buffer and 
DE85 AA TAX save it down 

DE86 A5 7F LDA S7F Get number of current disk drive 
DE88 9D 5B 02 STA $025B,xX and assign buffer 

DE8B2 20 15 El JSR $E115 Clear ‘buffer changed' flag 

DE8E 20 93 DF JSR SDF93 Get current buffer number & save 
DE91 AA TAX it down 

DE92! 4c 06 D5 JMP $D506 Test parameters; execute job 
[DA34/E03F/E06B] 

Parameters of next sector set by onhand linked bytes 

DE95 A9 00 LDA #$00 Reset current buffer pointer to 
DE97 20 C8 D4 JSR $D4C8 start-of-buffer 

DE9A 20 37 Di JSR $D137 Get byte from buffer and 

DE9D 85 80 STA $80 take on as current track number 
DEOF 20 37 Di JSR $D137 Get byte from buffer and set as 
DEA2 85 81 STA $81 current sector number 

DEA4 60 RTS Return from this subroutine 
[E467] 


Copy file from buffer to another buffer 
(Accumulator must contain # of bytes; Y the source buffers number; 
X the destination buffer number) 


DEA5 48 PHA Save number of bytes to be copied 
DEA6 AQ O00 LDA #$00 Clear low-bytes of 

DEAS 85 6F STA S6F both buffer 

DEAA 85 71 STA $71 pointers 

DEAC B9 EO FE LDA $FEEO,Y Set hi-byte of buffer address of 
DEAF 85 70 STA $70 source buffer 

DEB1 BD EO FE LDA S$FEEO,X Set hi-byte of buffer address of 
DEB4 85 72 STA $72 destination buffer 

DEB6' 68 PLA Get # of bytes to be transferred 
DEB7 A8 TAY again and save 

DEB8_ 88 DEY Initialize pointer 

DEBO! B1 6F LDA (S6F),Y Read byte from source buffer and 
DEBB 91 71 STA ($71),Y transfer to destination buffer 
DEBD 88 DEY Set buffer pointer to next byte 
DEBE 10 F9 BPL S$DEB9 All data transferred? 

DECO 60 RTS YES—Return from this subroutine 
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[DD1A/E45B] 

Clear buffer with $00 (Number in A) 

DEC1 A8 TAY Save buffer number 

DEC2 B9 EO FE LDA S$SFEEO,Y Get hi-byte of buffer address and 
DECS5 85 70 STA $70 define in pointer 

DEC7 A9 OO LDA #S$00 Set low-byte of pointer to the 
DEC9 85 6F STA S6F start-of-buffer 

DECB A8 TAY Clear buffer with value of buffer 
pEcc! 91 6F STA (S6F),Y number 

DECE C8 INY Buffer pointer to next position 
DECF DO FB BNE SDECC Entire buffer cleared? 

DED1 60 RTS YES—Return from this subroutine 
[DF 66/E1CB] 

Get number of current side-sector 

DED2 AQ 00 LDA #$00 Get buffer address and set in 
DED4 20 DC DE’ JSR SDEDC pointers $94/$95 

DED7 AO 02 LDY #$02 Choose position in buffer 

DED9S Bl 94 LDA ($94),Y Get # of side-sector from sector 
DEDB- 60 RTS Return from this subroutine 


[DED4/DEEA/E41E/E46C] 
Set buffer pointers $94/595 to any position in buffer 


DEDC 85 94 STA $94 Save desired position in buffer 
DEDE A6 82 LDX $82 Get current channel number and 
DEEO B5 CD LDA $CD,X establish preassigned 3rd buffer; 
DEE2 AA TAX save buffer number 

DEE3 BD EO FE LDA S$FEEO, X Get high-byte of buffer address 
DEE6 85 95 STA $95 and set in pointer 

DEE8_ 60 RTS Return from this subroutine 


[DD33/DD57/DF14/E1FF/E35A/E3F4] 
Set buffer pointer 7 
DEEQ9 48 PHA Save desired position in buffer 


DEEA 20 DC DE JSR S$SDEDC Set buffer pointer 

DEED 48 PHA Save high-byte of buffer address 
DEEE 8A TXA Get current buffr number & double 
DEEF OA ASL A it (table contains 

DEFO AA TAX 2-byte values) 

DEF1 68 PLA Get hi-byte of buffer address and 
DEF2 95 9A STA $9A,X set in buffer address table 

DEF4 68 PLA Get position in buffer & enter in 
DEF5 95 99 STA $99,X table 

DEF7 60 RTS Return from this subroutine 
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Read side-sector in buffer and set pointers 


JSR 
BMI 
BVC 
LDX 
LDA 
JSR 
JSR 
BPL 
JSR 
BIT 
RTS 
LDA 


SDF 66 
SDFOB 
SDF12 
$82 

$CD,X 
SDF1B 
SDF 66 
SDF12 
$E1CB 
SFECE 


Test status of side-sectors 
Does a side-sector exist? 
YES-Is side-sector in buffer? 
NO—Get current channel number 
Determine pre-arranged buffer # 
Read side-sector into buffer 
Test status again 

Everything runnng with no errors? 
NO-Search for end of rel. file 
Set N and V Processor flags 
Return from this subroutine 

Get position in side-sector and 
set buffer pointer 

Clear all flags 

Return from this subroutine 


[E258/E43C] 
DEF8 20 66 DF 
DEFB 30 OE 
DEFD 50 13 
DEFF A6 82 
DFO1l B5 CD 
DFO3 20 1B DF 
DFO6 20 66 DF 
DFO9 10 07 
DFOB! 20 CB El 
DFOE 2C CE FE 
DF11 60 

DF122 A5 D6 
DF14 20 E9 DE 
DF17 2C CD FE 
DF1A 60 
[DF03/E1EC/E4D6] 


Read sector (buffer pointer to current buffr must turn according to 
track & sector parameters of linked bytes) 


DF1B 
DF1D 
DF1F 
DF21 
DF23 
pFr251 
DF26 
DF28 
DF2A 
DF2C 
DF2D 
DF2F 
DF32 
DF34 
DF36 
DF37 
DF39 


85 
A9 


F9 
80 
04 
F9 
90 


EC 
O01 
TF 


7F 
4D 02 
94 
80 


94 
81 


STA 
LDA 
BNE 
STA 
LDA 
PHA 
LDA 
AND 
STA 
PLA 


SF9 
#580 
SDF25 
SF9 
#590 


SEC,X 
#501 
S7F 


S7F 
$024D 


($94) ,¥Y 


$80 


($94),Y 


$81 


Save buffer number 
Set ‘read sector' 
Jump to S$DF25 

Save current buffer number 

Set 'write sector' jobcode and 
note jobcode 

Get filetype of channel, determine 
disk drive chosen 

Take on as current drive number 
Get jobcode again and 

combine with drive number 

Save jobcode 

Read & store number of 

next sector from buffer 

Set buffer pointer to next byte 
Get sector number from buffer and 
take it over 

Current buffer number 
Track/sector params to jobloop 
Get current buffer number 

Execute job 


jobode 
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[E3E9/E40F/E418] 
Set side-sector pointer 
DF45 <A6 82 


DF47 
DF49 


BS 


CD 


4C EB D4 


([DF52/Jump to DF51/DF5C in DB48/DF4E/DF57/E381/DF51 :DB48] 
Calculate number of sectors ina relative file 


DF 


DF 


LDX 
LDA 
JMP 


LDA 
JSR 
DEX 
BPL 
LDA 
LSR 
JSR 
LDA 
CLC 
ADC 
STA 


$82 
SCD,X 
SD4EB 


#$78 
SDF5C 


SDF4C 
$72 

A 
SDF5C 
$73 


$70 
$70 
SDF65 
$71 


Current channel number 
Get number of preassigned buffer 
Set buffer pointer 


Add number of sector pointers per 
side- sector to pointer 

Set next side-sector number 
All side-sectors considered? 
YES-—Divide number of linked 
bytes by 2 

Add 

number of side-sectors 
Initialize addition 

Add value 

to counter 

Found a transfer? 
YES—Correct high-byte 

Return from this subroutine 


DF4C AQ 78 
DF4E 20 5c 
DF511 ca 

DF52 10 F8 
DF54 AS 72 
DF56 4A 

DF57 20 5C 
DF5A AS 73 
DF5c2 18 

DF5D 65 70 
DF5F 85 70 
DF61 90 02 
DF63 E6 71 
pF651 60 

[DEF8/DF06] 
Test status 
‘DF66 20 D2 
DF69 C5 D5 
DF6B DO OF 
DF6D A4 D6 
DF6F Bl 94 
DF71 FO 04 
DF73 2C CD 
DF76 60 

DF771 2c CF 
DF7A 60 

DF7B2 AS D5 
DF7D C9 06 
DF7F BO OA 
DF81 OA 

DF82 A8 

DF83 A9 04 
DF85 85 94 
DF87 Bl 94 


of 
DE 


FE 


FE 


a 


side~sector 


JSR 
CMP 
BNE 
LDY 
LDA 
BEQ 
BIT 
RTS 
BIT 
RTS 
LDA 
CMP 
BCS 
ASL 
TAY 
LDA 
STA 
LDA 


SDED2 
SD5 
SDF7B 
SD6 
($94),Y 
SDF77 
SFECD 


SFECF 


$D5 
#506 
SDF8B 
A 


#504 
$94 
($94),¥ 


Get # of side-sectors from buffer 
Compare w/sector being searched 
Is correct side-sector in buffer? 
YES-—Get pointer in buffer 

Get track number of record 

ist record applied? 

YES-Clear error flags 

Return from this subroutine 

Set 'no record’ flag 

Return from this subroutine 

Get # of side-sector searched 
Compare with largest side-sector 
Is number in allowable range? 
YES—Double side-sector number and 
save it 

Set buffer number and 

store it 

Get track number of side-sector 
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DF89 DO 04 BNE SDF8F Is track set? 

DF8Bt 2c DO FE BIT S$FEDO NO-Set error flag 

DF8E 60 RTS Return from this subroutine 
pFsFrt 2C CE FE BIT SFECE Set 'Sector not in buffer' flag 
DF92 60 RTS Return from this subroutine 


[CAB7 /CDEC/CF6F/CFF2/DOCC/D12F/D1D3/D324/D44D/D4CA/D4E8/D4F8/D6D0/D75E] 
[DBC3 /DDAB/DE2B/DE3E/DE82/DE8E/E07F/E457/E4D1/ECB3/ECDC/EDOD/ED32/ED46] 
[EEF4 ] 

Determine number of current buffer 


DF93 A6 82 LDX $82 Get number of current channel 
DF95 BS A7 LDA SA7,X Test buffer layout 

DF97 10 02 BPL SDF9B Ist buffer reserved? 

DF99 BS AE LDA SAE,X Get number of second 

DF9B 29 BF AND #SBF buffer 

DF9D_ 60 RTS Return from this subroutine 


[DDF1/E042/E10A/E115/E4B1] 
Get current buffer status 


DF9E A6 82 LDX $82 Get number of present channel and 
DFAO 8E 57 02 STX $0257 save it 

DFA3 BS A7 LDA S$A7,X Get buffer number 

DFA5 10 09 BPL $DFBO Is buffer reserved? 

DFA7 8A TXA YES—Get channel number again 
DFA8 18 CLC and convert and save as 

DFAQ9 69 07 ADC #$07 number for access to 

DFAB. 8D 57 02 STA $0257 2nd buffer 

DFAE BS AE LDA SAE,X Get buffer status and test 
DFBO! 85 70 STA $70 Save status 

DFB2 29 1F AND #S1F Mask out flags 

DFB4 24 70 BIT $70 Is buffer active? 

DFB6' 60 RTS Return from this subroutine 
[CF21/CF7E] 

Test whether buffer is free 

DFB7 A6 82 LDX $82 Current channel number 

DFB9 BS AT LDA S$A7,X Get appropriate buffer number 
DFBB 30 02 BMI SDFBF Is buffer reserved? | 
DFBD BS AE LDA SAE,X YES-Test buffer status 

DFBF! c9 FF CMP #SFF Compare w/'buffer active' value 
DFC1i 60 RTS Return from this subroutine 
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current buffer (2-buffer operation) 


LDX 
ORA 
LDY 
BPL 
STA 


$82 
#$80 
SA7,X 
SDFCD 
SA7,X 


SAE, X 


Get current channel number 
Set ‘buffer inactive' flag 
Get number of suitable buffer 
Is lst buffer reserved? 
NO-Activate ist buffer 


~ Return from this -subroutine 


Assign # for 2nd buffr of channel 
Return from this subroutine 


[CF2E/CF88] 
Activate 

DFC2 A6 82 
DFC4 09 80 
DFC6 B4 AT 
DFC8 10 03 
DFCA 95 AT 
DFCC 60 

pFcp! 95 AE 
DFCF 60 
[E153/E009:E291] 
Write record of 
DFDO AQ 20 
DFD2 20 9D DD 
DFD5 AQ 80 
DFD7 20 A6 DD 
DFDA DO 41 
DFDC A6 82 
DFDE F6 BS 
DFEO DO 02 
DFE2 F6 BB 
DFE4! a6 82 
DFE6 B5 Cl 
DFE8 FO 2E 
DFEA 20 E8 D4 
DFED A6 82 
DFEF D5 Cl 
DFF1 90 03 
DFF3 20 3C EO 
DFF6! A6 82 
DFF8 B5 Cl 
DFFA 20 C8 D4 
DFFD Al 99 
DFFF 85 85 
E001 A9 20 
E003 20 9D DD 
E006 20 04 E3 
E0091 4g 

EOOA 90 28 
EOOC AQ 00 
EOOR 20 F6 D4 
E011 DO 21 
E013 68 

E014 c9 02 
E016 FO 12 


a relative file 


LDA 
JSR 
LDA 
JSR 
BNE 
LDX 
INC 
BNE 
INC 
LDX 
LDA 
BEQ 
JSR 
LDX 
CMP 
BCC 
JSR 
LDX 
LDA 
JSR 
LDA 
STA 
LDA 
JSR 
JSR 
PHA 
BCC 
LDA 
JSR 
BNE 
PLA 
CMP 
BEO 


#$20 
SDD9D 
#580 
SDDA6 
$701D 
$82 
$B5,X 
SDFE4 
SBB,X 
$82 
$C1,X 
$7018 
SD4E8 
$82 
$C1,X 
SDFF6 
SE03C 
$82 
$C1,X 
$D4C8 


($99,X) 


$85 
#$20 
SDD9D 
SE304 


$E034 
#500 

SD4F6 
SE034 


#$02 
SEO2A 


Clear ‘record full’ 

flag 

Flag for last byte (EOI) 

Test flag 

Last byte been received? 

NO-Get current channel number and 
increment recordd number 

Is a transfer imminent? 
YES-—Correct high-byte 

Get current channel number 

Get pointer to position on buffer 
Pointer set? 

YES-Get buffer pointer again 

Get current channel number and 
compare buffr ptr w/record pointr 
Is buffer pointer<record pointer? 
NO-Write record to buffer 

Current channel number 

Get corresp. pointer to record & 
set corresponding buffer pointer 
Get filebyte from buffer 

and save it 

Clear ‘record full' 

flag 

Add record length to buffr pointr 
Save new pointer value 

Record still pass in curnt sectr? 
NO-Set position pointer and get 
byte (track number) from buffer 
Is there another fileblock ahead? 
NO-—Get new buffer pointer, compare 
with value for file start 

Is the new buffer empty? 
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#580 

SDD97 
$D12F 
$99,X 


$0244,Y 


#SOD 
$85 


SE035 
$82 


NO-Set flag to last byte 

(EOT) 

Determine buffer & channel number 
Get lo-byte of buffer pointer & 
save as last character 

Send <RETURN> 

as output 

Return from this subroutine 

Set pointer to last character 
Number of current channel 

Clear pointer to 

next record 

Return from this subroutine 


Set pointer to last character 


PLA 
LDX 
STA 
JMP 


$82 
$C1,X 
SE16E 


Pointer to start of next record 
Get current channel number & save 
pointer | 

Set pointer to last character 


E0182 a9 80 
EO1A 20 97 DD 
E01D? 20 2F Dl 
F020 BS 99 
E022 99 44 02 
F025 AQ OD 
E027 85 85 
E029 60 

E02A! 20 35 EO 
F02D A6 82 
EO2F AQ 00 
E031 95 Cl 
E033 60 
[EOOA/E011] 
F034 68 

E0351 a6 82 
E037 95 Cl 
E039 4C 6E El 
[DFF3/E0A7/E135] 
E03C 20 D3 Dil 
EO3F 20 95 DE 
E042 20 9E DF 
E045 50 16 
E047 20 5E DE 
EO4A 20 1E CF 
E04D A9 02 
EO4F 20 C8 D4 
E052 20 AB DD 
E055 DO 24 
E057 20 57 DE 
EO5SA 4C 99 D5 
EO5D+ 20 1E CF 
E060 20 AB DD 
E063 DO 06 
E065 20 57 DE 
E068 20 99 D5 
EO6B! 20 95 DE 
EO6E A5 80 
E070 FO 09 
E072 20 1E CF 
E075 20 57 DE 
E078 20 1E CF 
E07B2 60 


Prepare sector of record 


JSR 
JSR 
JSR 
BVC 
JSR 
JSR 
LDA 
JSR 
JSR 
BNE 
JSR 
JMP 
JSR 
JSR 
BNE 
JSR 
JSR 
JSR 
LDA 
BEQ 
JSR 


$D1D3 
SDE95 
SDF 9E 
SEO5D 
SDE5E 
SCF1E 
#$02 

SD4C8 
SDDAB 
SEO7B 
SDE57 
$D599 
SCFI1E 
SDDAB 
SEO6B 
SDE57 
$D599 
SDE95 
$80 

SEO7B 
SCF1E 
SDE57 
SCF1E 


Determine drive chosen 
Track/sector of next block 

Test buffer status 

Buffer contents been changed? 
YES-Write buffer to diskette 
Adjust new buffer 

Set buffer pointer to beginning 
OF file range 

Test last job for writing 

Sector already been written on? 
YES—Put sector back into buffer 
& wait til job has been executed 
Adjust new buffer 

Test last job for writing 

Sector previously used f/writing? 
YES—Read sector from disk & wait 
until job has been executed 
Track and sector of next block 
Get number of next track 

Another sector available? 
YES—Re-apply buffer 

Read sector from diskette 

and apply new buffer 

Return from this subroutine 
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$E105 


SDF93 


A 


$85 


($99,X) 


$99,X 


SE096 
$82 


$00C1,Y 


SEO9E 
#502 


$82 


$00C1,Y 


SEOA3 
#$20 

$DD97 
$99,X 
SEOAA 
$E03C 


of a record into buffer 


Set ‘buffer altered' flag 

Get number of current buffer 

and double it (buffr pointr table 
works with 2-byte values) 

Get byte to be transferred 

and write in buffer 

Get buffer pointer (lo-byte)& set 
to next position 

Reached end of buffer? 

YES—Get present channel number & 
pointer to next record 

Pointer set? 

YES-Set buffer pointer to start 
of filerange 

Get current channel number 
Compare buffer- & record pointers 
Record pointr at start-of-buffer? 
YES-Set ‘record full' 

flag 

Turn buffer pointer to next byte 
Reached end of buffer? 

YES-Write sector to diskette 
Return from this subroutine 


[EOB4/EOFE] 

Write a char. 

EO7C 2005 El JSR 
EO7F 20 93 DF JSR 
E082 OA ASL 
E083 AA TAX 
E084 AS 85 LDA 
E086 81 99 STA 
E088 B4 99 LDY 
EO8A C8 INY 
E08B DO 09 BNE 
EO8D A4 82 LDY 
EO8F B9C1 00 LDA 
F092 FO OA BEQ 
E094 AO 02 LDY 
E0961 98 TYA 
E097 A4 82 LDY 
E099 D9 C100 CMP 
EO9C DO 05 BNE 
EO9E! ag 20 LDA 
EOAO 4C 97 DD JUMP 
EOA3! F6 99 INC 
EOA5 DO 03 BNE 
EOA7 20 3C EO JSR 
EOAA! 60 RTS 
[CFCB] 

Write record to data 
EOAB AQ AO LDA 
EOAD 20 A6 DD JSR 
EOBO DO 27 BNE 
EOB2? as 85 LDA 
EOB4 20 7CE0 JSR 
EOB7 AS F8 LDA 
EOB9 FO OD BEO 
EOBB 60 RTS 
EOBC! a9 20 LDA 
EOBE 20 A6 DD JSR 
EOC1 FO 05 BEQ 
E0C3 AQ 51 LDA 
EO0C5 8D 6C 02. STA 
E0C82 20 F3 EO JSR 
EOCB 2053 E1 JSR 
EOCE AD 6C 02. LDA 
EOD1 FO 03 BEQ 
EOD3 4C C8 Cl  JMP 


buffer 


#SAO0 
SDDA6 
SEOD9 
$85 
SEO7C 
SF8 
SEOC8 


#520 

SDDA6 
SEOC8 
#551 

$026C 
SEOF3 
$E153 
$026C 
SEOD6 
$C1C8 


Test flags for 
‘record full' 
Is there a flag set? 

NO-Get byte from input register & 
write to record 

Test for ‘last byte' (EOI) flag 
Was that the last byte? 
YES—Return from this subroutine 
Test for ‘record full! 

flag 

Is record already written full? 
YES-—Set error flag 

for '51 overflow in record' 

Fill rest of record with nulls 
Get next record 

Check for error flag 

Encountered an error? 

YES—Display error message 


‘last byte’ (EOI) & 
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Eop6! 4c BC E6 JMP SE6BC Prepare 'Ok' message 

EOD9! 29 80 AND #880 Test flag for ‘last byte’ (EOI) 
EODB DO O05 BNE SEOE2 Is flag set? 

EODD AS F8 LDA SF8 NO-—Test EOI from serial bus 
EODF FO DB BEQ SEOBC Is flag set? 

EOE1 60 RTS YES—Return from this subroutine 
ROR2! a5 85 LDA $85 Get byte from input register; 
EOE4 48 PHA save it 

EOE5 20 1C E3 JSR $E31C Develop relative file 

EOE8 68 PLA Set back byte and 

EOE9 85 85 STA $85 save it 

EOEB AQ. 80 LDA #$80 Clear ‘last byte in file' (EOT) 
EOED 20 9D DD JSR $SDD9D flag 

EOFO 4C B2 EO JMP SEOB2 Write record further in buffer 
(E0C8/E101] 


Fill rest of record with empty bytes 


EOF3 AQ 20 LDA #$20 Test for ‘record full' 

EOF5 20 A6 DD JSR SDDA6 flag 

EOF8 DO OA BNE $E104 Is entire record filled? 

EOFA AQ OO LDA #$00 Set value for 

EOFC 85 85 STA $85 null bytes 

EOFE 20 7C EO JSR SEO7C Write byte in record 

E101 4C F3 EO JMP SEOF3 Fill in next byte 

£1041 60 RTS Return from this subroutine 
{[DEO9/E07C] 

Set flag for ‘buffer data altered' 

E105 AQ 40 LDA #540 Set flag for ‘sector 

E107 20 97 DD JSR $DD97 altered' 

E10A 20 9E DF JSR S$DF9E Get buffer status 

E10D 09 40 ORA #540 Flag for 'buffer altered’ 
E1OF AE 57 02 LDX $0257 # of channel+7 (points to SAE) 
B112 95 A7 STA SA7,X Set buffer status anew 

E114 60 RTS Return from this subroutine 
[DE8B] 

Clear 'buffer data altered’ flag 

E115 20 9E DF JSR SDF9E Get buffer status 

E118 29 BF AND #SBF and combine with flag 

E11A AE 57 02 LDX $0257 Channel number for 2nd buffer 
E11D 95 A7 STA $A7,X Set buffer status again in table 
E1l1F 60 RTS Return from this subroutine 
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[D3B1/E138:E294] 

Get byte from record 

E120 A9 80 LDA #$80 Check flag for 

E122 20 A6 DD JSR SDDA6 ‘last byte’ (EOT) 

E125 DO 37 BNE SE15E Is it last byte of the record? 
E127 20 2F Dl JSR $D12F NO-Initialize buffer pointer 

E12A BS 99 LDA $99,X Get buffer pointer and check with 
B12C D9 44 02 CMP $0244,Y end position of record 

E12F FO 22 BEQ SE153 reached the end of record? 

E131 F6 99 INC $99,X NO-Buffer pointer to next byte 
E133 DO 06 BNE $SE13B Is the data buffer full? 

E135 20 3C EO JSR SEO3C YES—Write sector; get next one 
£138 20 2F Dl JSR $D12F Initialize buffer pointer 

E13B+ al 99 LDA ($99,X) Get byte from data buffer 

E£13D! 99 3E 02. STA $023E,Y and save it 

E140 A9 89 LDA #$89 Flag for read/write/EOI 

E142 99 F2 00 STA SOOF2,Y set in channel status 

E145 B5 99 LDA $99,X Get lo-byte of buffer pointer and 
E147 D9 44 02 CMP $0244,Y compare w/value for end of record 
E14A FO O1 BEQ $E14D Has entire record been read? 

E14C 60 RTS NO—-Return from this subroutine 
E14p1 ag 81 LDA #$81 Set read/write flag in 

E14F 99 F2 00 STA SOOF2,Y channel status 

E152 60 RTS Return from this subroutineE14A FO 01 
[DCA3/EOCB/E12F] 

Get record and output it 

E153 20 DO DF JSR SDFDO Get next record 

E156 20 2F Dl JSR $D12F Determine buffer- and channel # 
E159 A5 85 LDA $85 Get byte and prepare 

E15B 4C 3D El JMP SE13D for output 

[E125/E262/E26F ] 

Error happens 

E15E A6 82 LDX $82 Get current channel # and 

E160 A9 OD LDA #$0D conclude output 

E162 9D 3E 02 STA $023E,X with <RETURN> 

E165 AQ 81 LDA #$81 Set channel status 

E167 95 F2 STA SF2,X back again 

E169 A9 50 LDA #$50 Display '50 Record 

E16B 20 C8 Cl JSR $C1C8 Not Present' error message 
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Set pointer to last character of record 


LDX 
LDA 
STA 
DEC 
CMP 
BNE 
LDA 
STA 
LDA 
STA 
JSR 
LDX 
CMP 
BCC 
BEQ 
JSR 
JSR 
BCC 
LDX 
STA 
JMP 
JSR 
LDA 
STA 
JSR 
BCS 


$82 
$C1,X 
$87 
$87 
#$02 
SE1T7E 
#SFF 
$87 
$C7,X 
$88 
SD4E8 
$82 
$87 
SE1A4 
SE1A4 
SCF1E 
$E1B2 
SE19D 
$82 


$0244,X 


SCF1E 
SCF1E 
#SFF 
$87 
SE1B2 
SE1AC 
SD4E8 
$82 


$0244,X 


Number of present channel 
Pointer to start of next record 
--get and save 

Correct pointer(incl.0)& compare 
with value for start-of-file 
Pointer at start of buffer? 
YES—-Set pointr to end of buffr & 
save it 

Get record length and 

save it 

Set current buffer pointer 

Get number of present channel 
Compare buffer- w/record pointer 
Is the buffer pointer larger? 
YES—Are both pointers equal? 
NO-Apply new buffer 

Look for end of record 

Find it? 

NO-—Get current channel number and 
save pointer 

Apply new buffer and end 

Apply new buffer 

Set record pointer to end 

of buffer 

Search for end of record 

EEnd found? 

YES—Set current buffer pointer 
Get number of matching channel & 
save end position of records 
Return from this subroutine 


Search for end of record 


[E039] 

E16E A6 82 
E170 BS Cl 
E172 85 87 
E174 C6 87 
E176 C9 02 
E178 DO 04 
E17A A9 FF 
E17C 85 87 
E17E1 B5 C7 
E180 85 88 
E182 20 E8 D4 
E185 A6 82 
E187 C5 87 
E189 90 19 
E18B FO 17 
E18D 20 1E CF 
E190 20 B2 El 
E193 90 08 
E195 A6 82 
E197 9D 44 02 
E19A 4C 1E CF 
E£19D! 20 1E CF 
E1A0 AQ FF 
F1A2 85 87 
E1A42 20 B2 El 
F1A7 BO 03 
F1A9 20 E8 D4 
E1lac! a6 82 
B1AE 9D 44 02 
E1B1 60 
[E190/E1A4] 
E1B2 20 2B DE 
E1B5 A4 87 
E1B7/ Bl 94 
E1B9 DO OD 
E1BB 88 

E1BC CO 02 
E1BE 90 04 
E1CO C6 88 
E1C2 DO F3 


JSR 
LDY 
LDA 
BNE 
DEY 
CPY 
BCC 
DEC 
BNE 


SDE2B 
$87 


($94) ,¥ 


SE1C8 


#$02 
$E1C4 
$88 
$E1B7 


Set pointer to buffer start 

Get current record pointer 

Read byte from record 

Byte = empty byte? 

YES—Move buffr pntr to next byte, 
compare with buffer begin. value 
Reached start of buffer? 
NO—Decrement record length 
Entire record range searched? 
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E1c4l 
E1C6 


DEC 
CLC 
RTS 


$88 


YES-—Correct record pointer 
Set ‘end found' flag 

Return from this subroutine 
Get current buffer position & 
set 'end not found! flag 
Return from this subroutine 


[CA56/CA69/DB32/DFOB/E31F] 


Search for end of relative file 


E1CB 
E1CE 
E1D0 
E1D2 
E1D4 
E1D6 
E1pst 
E1D9 
E1DA 
E1pc1 
E1DE 
E1E0 
E1E1 
E1E2 
E1E4 
E1E6 
E1E8 
E1LEA 
E1EC 
E1ieFt 
E1F1 
E1F3 
E1F5 
E1F7? 
E1LF8 
E1FA 
E1FB 
E1FC 


20 
85 
AQ 
85 
AO 
DO 
88 
88 
30 
Bl 
FO 
98 
4A 
C5 
FO 
85 


D2 DE 
DS 
04 
94 
OA 
04 


1B DF 


JSR 
STA 
LDA 
STA 
LDY 
BNE 
DEY 
DEY 
BMI 
LDA 
BEQ 
TYA 
LSR 
CMP 
BEQ 
STA 
LDX 
LDA 
JSR 
LDY 
STY 
LDA 
BNE 
INY 
LDA 
TAY 
DEY 
STY 
TYA 


SDED2 
SD5 
#$04 
$94 
#S0A 
SE1DC 


$E202 


($94),Y 


SE1D8 


A 

SD5 
SE1LEF 
S$D5 
$82 
SCD,X 
SDF1B 
#500 
$94 


($94),Y 


SE202 


($94),Y 


Get number of current side-sector 
and save it 

Reset buffer pointer to 

beginning of sector 

Pointr to trak of last sidesector 
Jump to SE1DC 

Set buffer pointr to track # of 
preceding side-sector 

No more side-sectors on hand? 
NO-Get track # of side-sector 

Is sector laid out? 

YES—Transmit side-sector 

number 

and compare with current number 
Identical? 

NO-Save new side-sector number 
Get number of present channel 
Determine sector buffer and 

read sector 

Reset buffer pointer to begin. of 
sector 

Get track of next sector 

No more side-sectors? 

YES—Set pointer to next position 
Get # of applicable filebytes 

and save them 

Set pointer to linked bytes of 
last record's sector 

and save it 

Set buffr pointr to this position 
Error message-- 

‘67 Illegal Track Or Sector' 
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Record command routine ('P') 


E207 
E20A 
E20D 
E20F 
E212 
E214 
E216 
E2191 
E21B 
E21E 
E221 
E223 
E225 
E2281 
E22A 
E22C 
E22E 
E231 
E233 
E236 
E238 
E23A 
E23C 
E23E 
E241 
E243 
E244 
E246 
E248 
E24A 
E24C 
E24E 
E251 
E2532 
E255 
E258 
E25B 
E25D 
E25F 
E262 


20 
AD 
85 
20 


B3 C2 
O1 02 
83 
EB DO 
05 
70 
C8 Cl 
AO 
9D DD 
25 D1 
05 
64 
C8 Cl 
EC 
O01 
7F 
02 02 
BS 
03 02 
BB 
82 
89 
F2 
04 02 
10 


01 
OB 
C7 
07 
Sl 
6C 02 
00 
D4 
OE CE 
F8 DE 
08 
80 
97 DD 
SE El 


JSR 
LDA 


STA 


JSR 
BCC 
LDA 
JSR 
LDA 
JSR 
JSR 
BEQ 
LDA 
JSR 
LDA 
AND 


STA 


LDA 
STA 
LDA 
STA 
LDX 
LDA 
STA 
LDA 
BEO 
SEC 
SBC 
BEO 
CMP 
BCC 
LDA 
STA 
LDA 
STA 
JSR 
JSR 
BVC 
LDA 
JSR 
JMP 


$C2B3 
$0201 
$83 
SDOEB 
$E219 
#$70 
$C1C8 
#SA0 
SDD9D 
$D125 
SE228 


#564 


$C1cs 
SEC,X 
#$01 
S7F 
$0202 
$B5,X 
$0203 
SBB,X 
$82 
#589 
SF2,X 
$0204 
$E253 


#501 
SE253 
SC7,X 
SE253 
#551 
$O026C 
#500 
$D4 
SCEOE 
SDEF8 
SE265 
#580 
SDD97 
SE15E 


1571 Internals 


Set command string pointer 

Get 2nd command char from buffer 
and set up as secondary address 
Open read channel 

Has a free channel been found? 
NO—Error message-- 

'70 No Channel' 

Clear EOI 

flags 

Get filetype and test it out 

Is there a relative file? 
NO—Error message-- 

'64 File Type Mismatch' 

Get channel flag and 

take on chosen disk drive 

as current drive 

Get 3rd char from input buffer & 
set as low-byte of record number 
Get high-byte of record number & 
take it up 

Get number of present channel 
Set read/write/EOI flag 

in channel status 

Get Sth char from input buffer 
No instructions? 

NO-Take up position in record 
and test for pointer=1 

Pointer set to start of record? 
NO—Compare with record length 

Is position legal? 

NO-—Store '51 Overflow In Record' 
in error flag 

Set position pointer to beginning 
of record 

Calculate position of record 
Read in corresponding side-sector 
Side-sector read without errors? 
NO-Set ‘last byte‘ (EOT) 

flag 

Error—'50 Record Not Present' 
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Read record searched for 

Test for ‘last byte' 

flag 

Record not onhand? 

YES—Error—'50 Record Not Present’ 
'Ok' message prepared 


Read sector containing record 
Transfer position in record to 
current buffer pointer 

Present channel number 

Determne record length & subtract 
current position in data field 
from record length 

Pointer still in field? 

YES—-'67 Illegal Track or Sector' 
Figure position of desired bytes 
in record 

Byte in next file sector? 

YES-Set to start position and set 
flag for next sector 

Set pointer for next record 

Get byte from record 

Error message-- 

'51 Overflow In Record' 


Retain current buffer pointer in 
temporary storage 

in addresses 

$89/S8A 

Check buffer for sector 

Is the sector in buffer? 
YES—Return from this subroutine 
Write buffer contents to diskette 
Track /sector of next block 

Get track number of next sector 
More sectors onhand? 

YES—Test buffer for sector 

Is sector already in buffer? 
YES—Provide new buffer 

Free up all inactive buffers 


E265! 20 75 E2 JSR $E275 
E268 AQ 80 LDA #$80 
E26A 20 A6 DD JSR $DDA6 
E26D FO 03 BEQ $E272 
E26F 4C 5E £1 JMP SE15E 
E2721 4c 94 Cl JMP $c194 
[E265/E441] 

Read record into buffer 
E275 20 9C E2 JSR $E29C 
E278 AS D7 LDA $D7 
E27A 20 C8 D4 JSR $D4c8 
E27D A6 82 LDX $82 
E27F BS C7 LDA $C7,X 
E281 38 SEC 

E282 E5 D4 SBC $D4 
E284 BO 03 BCS SE289 
E286 4C 02 E2  JMP $E202 
E2891 18 CLC 

E28A 65 D7 ADC $D7 
E28C 90 03 BCC $E291 
E28E 69 01 ADC #$01 
E290 38 SEC 

£2911 20 09 EO JSR $E009 
E294 4C 38 El JMP $E138 
E297 AQ 51 LDA #$51 
E299 20 C8 Cl JSR $C1C8 
[CA6C/E322/E275] 

Read record sector contained in buffer 
E29C AS 94 LDA $94 
E29E 85 89 STA $89 
E2A0 A5 95 LDA $95 
E2A2 85 8A STA $8A 
E2A4 20 DO £2 JSR $E2D0 
E2A7 DO 01 BNE SE2AA 
E2A9 60 RTS 

E2AA! 20 Fl DD JSR $DDF1 
E2AD 20 0C DE JSR $DEOC 
E2B0 AS 80 LDA $80 
E2B2 FO OF BEQ $E2C2 
E2B4 20 D3 E2 JSR S$E2D3 
E2B7 DO 06 BNE $E2BF 
E2B9 20 1E CF JSR SCFIE 
E2BC 4C DA D2 JMP $D2DA 
E2BF1 20 DA D2. JSR SD2DA 


Free up all inactive buffers 
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E2c21 ao 00 LDY #$00 Initialize buffer pointer 

E2C4 Bl 89 LDA ($89),Y Get track number from side-sector 
E2C6 85 80 STA $80 and take as current track no. 
E2C8 C8 INY Buffer pointer to next byte 

E2C9 Bl 89 LDA ($89),Y Get number of file sector and 
E2CB 85 81 STA $81 store it 

E2CD 4C AF DO JMP SDOAF Read sector in buffer 

[E2A4] 

Test to see whether sector is already in buffer 

E2D0 20 3E DE JSR SDE3E Get track/sector of last job 
E2D3+ ao 00 -LDY #$00 Initialize buffer pointer 

E2D5 Bl 89 LDA ($89),Y Look for track from side-sector & 
E2D7 C5 80 CMP $80 compare with last read value 

E2D9 FO Ol BEQ SE2DC Identical? 

E2DB- 60 RTS NO—Return from this subroutine 
E2pc! cg INY Set buffer pointer & sector # 
E2DD Bl 89 LDA ($89),Y Get # of sector being searched & 
E2DF C5 81 CMP $81 compare with current sector 

E2E1 60 RTS Return from this subroutine 
[DD7B/E3C2/E3CE] 

Employ new record in sector 

E2E2 20 2B DE JSR SDE2B Set current buffer address 

E2E5 AO 02 LDY #502 Pointer to begin. of file range 
E2E7 A9 00 LDA #$00 Sector clear value 

E2E91 91 94 STA ($94),Y Write empty byte to buffer 

E2EB C8 INY Set buffer pointer to next byte 
E2EC DO FB BNE SE2E9 Entire buffer filled? 

E2EE 20 04 E3 JSR $E304 YES—Get position of next record & 
E2F1! 95 c1 STA $C1,X save it 

E2F3 A8 TAY Take value as buffer pointer 

E2F4 AQ FF LDA #SFF Value for opening record -- 

E2F6 91 94 STA ($94),Y write to buffer 

E2F8 20 04 E3 JSR $E304 Calculate position of next record 
E2FB 90 F4 BCC SE2F1 Record still have room ? 

E2FD DO 04 BNE $E303 NO—Record passed in sector? 

E2FF A9 00 LDA #$00 YES-Setposition of next record to 
B301 95 Cl STA $C1,X start. of next sector 

£3031 60 RTS Return from this subroutine 
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Calculate position of new record in sector 


LDX 
LDA 
SEC 
BEQ 
CLC 
ADC 
BCC 
BNE 
LDA 
BIT 
RTS 


$82 
$C1,X 


$E318 


$C7,X 
$E31B 
$E318 
#$02 

SFECC 


#501 


Get current channel number 

and corresponding record pointer 
Set 'no more records! flag 

Fill in an old record? 

NO—Add record length to 

current position 

Record run to next sector? 
YES—Record fill entire sector? 
YES—Pointr to start of new sector 
Set 'still another sector' flag 
Return from this subroutine 
Pointr to begin. of next record 
Set 'no more sectors' flag 
Return from this subroutine 


Insert new records in relative file 


[E006/E2EE/E2F8] 
E304 A6 82 
E306 BS Cl 
F308 38 
E309 FO OD 
E30B 18 
EB30C 75 C7 
E30E 90 OB 
E310 DO 06 
E312 A9 02 
B314 2C CC FE 
E317 60 
E3187 69 01 
E31A 38 
E31B! 60 
[EOE5/E33B:CA85] 
E31C 20 D3 Di 
E31F 20 CB El 
E322 20 9C E2 
E325 20 7B CF 
E328 AS D6 
E32A 85 87 
E32C AS D5 
—E32E 85 86 
E330 A9 00 
E332 85 88 
E334 A9 00 
E336 85 D4 
E338 20 OE CE 
E33B- 20 4D EF 
E33E A4 82 
E340 B6 C7 
E342 CA 
E343 8A 
E344 18 
E345 65 D7 
E347 90 0C 
E349 E6 D6 
E34B E6 D6 
E34D DO 06 
E34F E6 D5 
E351 AQ 10 
E353 85 D6 


JSR 
JSR 
JSR 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
JSR 
LDY 
LDX 
DEX 
TXA 
CLC 
ADC 
BCC 
INC 
INC 
BNE 
INC 
LDA 
STA 


$D1D3 
$E1CB 
$E29C 
SCF7B 
SD6 
$87 
$D5 
$86 
#$00 
$88 
#$00 
$D4 
SCEOE 
SEF 4D 
$82 
$C7,Y 


$D7 
SE355 
$SD6 
$D6 
SE355 
$D5 
#510 
$D6 


Get number of drive chosen 

Get position of last record 

Read side-sector and records 

Open new buffer 

Retain pointer to file block 

in side-sector 

Temporarily store pointer of 
current side-sector 

Clear ‘only one block' 

flag 

Clear pointer of position 

of record 

Calc. side-sector of fileblock 
Get number of blocks free 
Determine # off current channels 
Get corresponding record length & 
correct it 

(includes 0) and 

add to current 

buffer pointer 

Any new buffer pointer in sector? 
NO—Pointr in sidesector to track/ 
sector number of next fileblock 
Pointr still in curr.sides-ector? 
NO-—Go to next side-sector 

Buffer pointr to begin. of track/ 
sector pointer of fileblock 
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£3552 
E357 
E358 
E35A 
E35D 
E35F 
E361 
E3632 
E365 
E3682 
E36A 
E36B 
E36D 
E36F 
E371 
E3721 
E374 
E376 
E378 
E37A 
E37C 
E37E 
E380 
E381 
E384 
E386 
E388 
E38A 
E38B 
E38D 
E38F2 
E392 
E394 
£396 
£399 
E39B 
E39p2 
E39F 
E3A2 
E3A3 
E3A5 
E3A7 
E3A9 
E3AC 
E3AF 
E3B1 


AS 
18 
69 
20 
AS 
C9 
30 
A9 


AA 


87 


02 
E9 
DS 
06 
05 
52 
C8 
D6 


87 
03 
OF 


72 
DS 
86 
73 
00 
70 
71 


51 
71 
07 
70 


02 
88 
73 
09 
CD 
72 
70 
C6 
01 
F6 


01 
82 
Cl 
1E 
FD 
88 
15 


DE 


Cl 


DF 


02 


02 


D4 


Fl 
DD 


Old buffer pointer set to next 
sector file 

(track/sector) 

Set buffer pointer 

Get # of current side-sectors and 
compare with maximum value 

Legal number? 

NO—Error -- 

'52 File Too Large! 

Get current position in 
side-sector 

Subtract last side-sector pointer 
New value in preceding sector? 
YES—Observe linking bytes at 
start of side-sector and 

save new value 

Get current side-sector number & 
and remove last number 

Save new value 

Clear temporary memory 

of number of blocks 

free 

Side-sector number 0 

Calculate # of blocks needed by 
and hold it (high-byte) 

Number of blocks < 256? 

YES—Test low-byte 

of amount of blocks 

Just 1 block (side-sector) laidout? 
Set 'just one block! flag 
Compare w/ number of blocks free 
Any room left on the diskette? 
NO-—Any files past on disk? 
YES—Compare lo-bytes of necess. 
blocks with number of free blocks 
File > capacity? 

NO-—Buffer pointer to sector # 
Get byte from buffer 

Increment pointer to current 
filebyte in current sector 

Get channel number 

Save pointer to filebyte 

Get next free sector from BAM 
Linking bytes for next sector 
Flag for ‘only one block' 

set? 
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E3B3 
E3B62 
E3B9 
E3BC 
E3BF 
E3C2 
E3C5 
B3C82 
E3CB 
E3CE 
E3D1 
E3pD41 
E3D7 
E3DA 
E3DC 
E3DD 
E3DF 
E3E0 
E3E3 
E3E5 
E3E6 
E3E8 
E3E9 
E3EC 
E3ED 
E3EF 
E3F2 
E3PF4 
E3F7 
E3F91 
E3FA 
E3FD 
E3FE 
E401 
E402 
E404 
E405 
E407 
E409 
E40B 
E40D 
E40F 
£412 
E414 
E416 


AA 


SE 
1E 
DO 
1E 
FD 
E2 
D4 
1E 
DO 
E2 
19 
SE 
0C 
80 


81 


3E 
81 


80 


45 


OA 
4E 
10 
E9 
86 


8D 


8D 


81 


80 
OF 
86 
D5 
Al 
45 
D6 
AO 
BO 


DE 
CF 
D6 
Fl 
DD 
E2 
E3 
CF 
D6 
E2 
DE 
DE 
DE 


DE 


DF 


E4 


DE 


DD 


DD 


DF 


SDE5E 
SCF1E 
SD6DO 
SF11E 
SDDFD 
SE2E2 
SE3D4 
SCF1E 
SD6DO 
SE2E2 
SDE19 
SDESE 
SDEOC 
$80 


$81 


SDE3E 
$81 


$80 


SDF45 


SE3F9 
SE44E 
#$10 
SDEE9 
$86 


SDD8D 


SDD8D 


$81 


$80 
$E418 
$86 
$SD5 
SE3B6 
SDF45 
$D6 
SE3B6 
SE3C8 


NO-Write sector to diskette 
Changee buffer 

Track/sector to job loop 

Look for next free block in BAM 
Params of next block in buffer 
Employ new record 

Write sector to diskette 
Change buffer 

Track/sector to job loop 

Use new record 

Identify last sector 

Write sector to diskette 
Track/sector from linking bytes 
Get next track number and 

save it 

Retain next 

sector number 

Get track/sector of last job 
Save last sector 

number 

Retain number of last 

sector 

Set buffr pointr 
save low-byte 
Pointer at buffer start? 
YES—Open new side-sector 

Buffr pointr to begin. of pointer 
of file sectors 

Increment side-sector number 

Get track of last sector and 
enter in side-sector 

Get sector number and take 

byte in side-sector 

Get current sector number 

and store it 

Get current track number and 
store it 

Last block? 

NO—Compare current side-sector # 
with the last one 

Changed? 

YES—Position buffer pointer and 
compare with side-sector pointer 
Is buffer pointer less? 

NO-Is it equal? 


f/side-sector & 
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£4181 20 45 DF JSR SDF45 NO—Position buffer pointer and 
E41B 48 PHA save as ending 

E41C <A9 OO LDA #$00 Reset buffer pointer 

E41E 20 DC DE JSR SDEDC to zero , 

E421 A9 00 LDA #$00 Set buffer pointer to 

E423 A8 TAY beginning of sector 

B424 91 94 STA ($94),Y Set flag to last block in buffer 
E426 C8 INY Set buffer pointer to next byte 
E427 68 PLA Set pointer to end and 

E428 38 SEC decrement 

E429 E9 O1 SBC #S$01 by one 

E42B 91 94 STA ($94),Y Pointer—number of good bytes 
E42D 20 6C DE JSR SDE6C Write sector to diskette 

E430 20 99 D5 JSR $D599 and test for write error 

E433 20 F4 EE JSR SEEF4 Put sector in BAM 

E436 20 OF CE JSR SCEOE Re-initialize REL file pointer 
E439 20 1E CF JSR SCFIE Get another buffer 

E43C 20 F8 DE JSR SDEF8 Check side-sector 

E43F 70 03 BVS SE444 Is correct side-sector in buffer? 
E441 4C 75 E2 JMP $E275 YES—Record pointer reset; end 
£4441 ag 80 LDA #$80 Reset filetype 

E446 20 97 DD JSR $DD97 pointer and flags 

E449 AQ 50 LDA #$50 Display error message -- 

E44B 20 C8 Cl JSR $C1C8 '50 Record Not Present! 

[E3EF] 

Prepare new side-sector 

E44E 20 1E Fl JSR $SF11E Determine next free block 

E451 20 1E CF JSR SCFI1E Choose buffer 

E454 20 Fl DD JSR $DDF1 Write previous side-sector 

E457 20 93 DF JSR SDF93 Get buffer number 

E45A 48 PHA and save it 

E45B 20 Cl DE JSR $DEC1 Clear file buffer 

E45E A6 82 LDX $82 Channel number 

E460 B5 CD LDA SCD,X Take channel number for 

E462 A8 TAY side-sector 

E463 68 PLA from stack and save in 

E464 AA TAX X/Y-registers 

E465 A9 10 LDA #$10 Take 16 byts of previos sidesectr 
E467 20 AS DE JSR SDEA5 into current buffer 

E46A A9 O00 LDA #S$00 Buffer pointer value 

E46C 20 DC DE JSR SDEDC Reset buffer pointer 

E46F AO 02 LDY #502 Take buffr of previos side-sector 
E471 Bl 94 LDA ($94),Y and get side-sector number 

E473 48 PHA Save number of last side-sector 
E474 A9 00 LDA #$00 Turn buffr pointer to buffr for 
E476 20 C8 D4 JSR $D4C8 new side-sector and set back 
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rr 


E479 68 
E47A 18 
E47B 69 
E47D 91 
E47F OA 
E480 69 
E482 85 
E484 A8 
E485 38 
E486 E9 
E488 85 
E48A AS 
E48C 85 
E48E 91 
E490 C8 
E491 AS 
E493 85 
E495 91 
E497 AO 
E499 98 
E49A 91 
E49C C8 
E49D AQ 
E49F 91 
E4A1 A9 
E4A3 20 
E4A6 20 
E4A9 20 
E4AC AG 
E4AE BS 
E4B0 48 
E4B1 20 
E4B4 A6 
E4B6 95 
E4B8 68 
E4B9 AE 
E4BC 95 
E4BE AQ 
E4CO 20 
E4C3 AO 
EB4C5 AS 
E4C7. 91 
EB4C9 C8 
E4CA AS 
E4CC 91 
E4CE 4C 
E4D1! 20 


01 
94 


04 
89 


02 
8A 
80 
87 
94 


81 
88 
94 
00 


94 


ta 
94 
10 
C8 
50 
99 
82 
CD 


9B 
82 
CD 


o7 
Al 
00 
C8 
00 
80 
94 


81 
94 
DE 
93 


D4 
DE 
DS 


DF 


02 


D4 


E4 
DF 


#501 


($94) ,Y¥ 


A 
#504 
$89 


#502 
S8A 
$80 
$87 


($94),Y 


$81 
$88 


($94) ,¥ 


#500 


($94),Y 


#511 


($94),¥Y 


#510 
$D4C8 
SDE50 
$D599 
$82 
SCD,X 


SDF 9E 
$82 
SCD,X 


$0257 
SA7,X 
#500 
$D4C8 
#$00 
$80 


($94),¥ 


$81 


($94),Y 


SE4DE 
SDF 93 


Get number of last side-sector 
Increase by one 

and store 

as new number 

Double value 

and add 4 

Set track/sector pointer 

and save it; 

from that, compute 

the pointer to 

the previous side-sector 

save 

track number 

Write to current buffer 

Set buffer pointer to next byte 
Store sector number 

and take into 

current buffer 

Set buffer pointer to 

beginning of sector 

Flag for last side-sector 

Set buffer pointer to next byte 
Set number of good bytes to 
sector (17) 

Put buffer pointer 

to position 16 

Write sector to diskette 

Wait f/messge frm diskcontroller 
Set current channel number 

Get # of buffer to side-sector 
and save it down 

Get buffer number 

Current channel number; 

save as third buffer 

Buffer number for side-sector 
Pntr to last active file buffer 
Lay out buffer 

Reset buffer pointer 

to zero 

Buffer pointer to start-of-sector 
Take track number into 

file buffer 

Set pointer to next character 
Take buffer number 

into the buffer 

Write side-sector to diskette 
Determine current buffer number 
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$82 
SDF1B 
#$00 
SD4C8 
S8A 

S8A 

$89 

$87 
($94),¥ 


$88 
($94),Y 
SDE5E 
$D599 


1571 Internals 


Current channel number 

Read next side-sector from disk 
Reset buffer pointer 

to zero 

Correct side- 

sector number 

Buffr pntr for track/sector pos. 
Write track number 

to the file buffer 

Set buffer pointer to next byte 
Get sector number and take 

into the buffer 

Write side-sector to diskette 
Wait f/messge frm diskcontroller 
Get side-sector number and 

test it 

Greater than 3? 

NO—Choose another buffer 


The first byte is the error number in BCD-Code. Next follows the 
text of the error msg. The start and ending of these text strings 


are indicated by bit7 in the first 


& last byte set to 1. Some 


values are set up as short codes. The most significant byte-half of 
these values is 0. 


They are handled like error messages. 


‘file too large’ 


4C 41 52 47 C5 


53 45 4E D4 


"record not present' 


4c 


‘overflow in record! 


4F 57 20 49 4E 8B 


'write protect on' 


45 43 54 20 4F CE 


ROM-224 


Abacus Software 1571 Internals 


ee 


E540 29 'disk id mismatch' 
E541 88 20 49 44 85 


E570 66 67 'tillegal track or sector' 
E572 C9 4C 4C 45 47 41 4C 20 54 52 41 43 4B 20 4F 52 20 53 45 43 54 4F D2 


E592 01 ‘files scratched' 
E593 83 53 20 53 43 52 41 54 43 48 45 C4 


E59F 70 "no channel' 
E5A0 CE 4F 20 43 48 41 4E 4E 45 CC 


E5B6 73 'cbhbm dos v3.0 1571' 
ESB7 C3 42 4D 20 44 4F 53 20 56 33 2E 30 20 31 35 37 Bil 


E5C8 74 'drive not ready' 
E5C9 C4 52 49 56 45 06 20 52 45 41 44 D9 
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Often-used words and their short codes ; 


[8391/91AA/A47B/A6CB/BF63/C8EC/D641/E60D:A9D2] 
Error message output 
(A must contain error no.; X the buffer number) 


E60A 4C BO AQ JMP SA9B9 1571 mode observed 

E60D 8A TXA Double buffer 

E60E OA ASL A number and set 

E60F AA TAX as pointer on disk controller 
E610 BS 06 LDA $06,X Get track # from disk controller 
E612 85 80 STA $80 and store it 

E614 BS 07 LDA $07,X Get sector number and 

E616 85 81 STA $81 store it 

E618 68 PLA Get error number ready again 
E619 29 OF AND #SO0F Is the error number 

E61B FO 08 BEQ S$E625 15 or greater? 

E61D C9 OF CMP #SOF YES-Is it equal to 

E61F DO 06 BNE $E627 error number 15? 

E621 AQ 74 LDA #$74 YES—Internal # of error message 
E623 DO 08 BNE SE62D Jump to SE62D 
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E625: AQ 06 LDA #$06 
E627+ 09 20 ORA #$20 
E629 AA TAX 

E62A CA DEX 

E62B CA DEX 

E62C 8A TXA 

E62D: 48 PHA 

E62E AD 2A 02. LDA $022A 
E631 C9 00 CMP #$00 
E633 DO OF BNE SE644 
E635 AQ FF LDA #SFF 
E637 8D 2A 02. STA $022A 
E63A 68 PLA 


E63B 20 C7 E6 JSR $E6C7 
E63E 20 42 DO JSR $D042 
E641 4C 48 E6 JMP S$E648 
£6441 68 PLA 


1571 Internals 


en 


Convert error number 

for read error and correct 

for error 

table 

(BCD codes) 

Repeat number 

Retain error number 

Number of command begin executed 
Compare with 'validate' command 
Identical? 

YES—Then clear 

command number and 

return an error number 

Put error message in 

Initialize - command execute 
Activate error messages 

Get back error number 


[A582/A9F5/CD2E/D54F/D577/DC03/E204/E829/F1DC/F1F7/F248] 


Prepare error message 
E645 20 C7 E6 JSR SE6C7 


[A4AA/D021/E641/F01F) 
Activate error message 
E648 20 BD Cl JSR $C1BD 
E64B A9 OO LDA #$00 
E64D 8D F9 02 STA $SO2F9 
E650 20 2C Cl JSR $C12C 
E653 20 DA D4 JSR SD4DA 


E656 AQ 00 LDA #$00 
E658 85 A3 STA SA3 
E65A A2 45 LDX #$45 
E65C 9A TXS 

E65D A5 84 LDA $84 
E65F 29 OF AND #SOF 
E661 85 83 STA $83 
E663 C9 OF CMP #SOF 
E665 FO 31 BEQ SE698 
E667 78 SEI 

E668 A5 79 LDA $79 
E66A DO 1C BNE SE688 
E66C AS 7A LDA $7A 
E66E DO 10 BNE SE680 
E670 A6 83 LDX $83 
E672 BD 2B 02 LDA $022B,X 
E675 C9 FF CMP #SFF 
E677 FO 1F BEQ SE698 


Produce error message in buffer 


Clr input buffer f/command string 
Write back to BAM by hindering 
flag setting 

LED blinks 

Close channel 

Reset pointer to position 

in command string 

Reset 

stack pointer 

Find out standard 

secondary address and 

save it down 

Compare with channel 15 

Is it the command channel? 
NO—Disable disk controller 
"Listen found’ 

flag active? 

NO-What above the 'Talk found! 
flag? 

NO-—Get secondary address and 
test appropriate 

channel status 

Is the channel active? 
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E679 29 OF AND #S0F YES—Prep channel number and 
E67B 85 82 STA $82 store it 

E67D 4C 8E E6 JMP SE68E for a wait loop 

E680! 20 EB DO’ JSR SDOEB Get channel number 

E683 EA NOP Empty space......cccssoee 
E684 EA NOP [Resulting from modification] 
E685 EA NOP [of 1541 ROM] 

E686 DO 06 BNE SE68E Jump to SE68E 

E688! 20 07 D1 JSR $D107 Get write channel 

E68B EA NOP Empty space......ccceeee 
E68C EA NOP [Due to modification] 

E68D EA NOP [of 1541 ROM] 

E68E* 20 25 Dl JSR $D125 Determine current filetype 
E691 C9 04 CMP #$04 Test for relative file 

E693 BO 03 BCS SE698 Is it s relative file? 

E695 20 27 D2 JSR $D227 NO-Free up all channels for 
E698” 4C 6B 83 JMP $836B command wait loop 
[E6EA/E6F4] 

Convert a binary number to a BCD number 

E69B AA TAX Save binary number 

E69C AQ 00 LDA #$00 Set accumulator back 

E69E F8 SED [Error -- see Chapter 7.1.5] 
E69F1 FO 00 CPX #S$00 Compare binary value and 0 
E6Al FO 07 BEQ SE6AA Identical? 

E6A3 18 CLC Get addition ready 

E6A4 69 O1 ADC #S$01 Add X times 1 in 

E6A6 CA DEX BCD mode 

E6A7 4C OF E6 JMP SE69F Count up until X=0 

E6AA: D8 CLD Turn off decimal mode 
[E6D1] 

Convert BCD number into two ASCII-characters 

E6AB AA TAX Save BCD value 

E6AC 4A LSR A Isolate most significant 
E6AD 4A LSR A nibble; first digit 

E6AE 4A LSR A | prepares 

E6AF 4A LSR A BCD number 

E6BO 20 B4 E6 JSR SE6B4 --convert to ASCII value 
E6B3 8A TXA Get original value again and 
E6B4+ 29 OF AND #S0F isolate 2nd BCD number 

E6B6 09 30 ORA #$30 Convert to ASCII and write 
E6B8 91 AS STA (SA5),Y in current buffer 

E6BA C8 INY Pointer to next byte in buffer 
E6BB- 60 RTS Return from this subroutine 
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[C150/EOD6] 

Prepare ‘00 OK' error message 
E6BC 20 23 Cl JSR $C123 
E6BF AQ O00 LDA #$00 


[D24A/EBD7] 
Output error message with track & 


E6C1 AO OO LDY #$00 
E6C3 84 80 STY $80 
E6C5 84 81 STY $81 


[C1A7/E63B/E645/EFCB) 


Reset error flags 
Error number for'OK' 


sector =0 

Track number and 
Sector number 
cleared 


Produce error message in buffer (number in accumulator) 


E6C7 AO OO LDY #500 
E6C9 A2 D5 LDX #S5D5 
E6CB 86 A5 STX SA5 
E6CD A2 02 LDX #$02 
E6CF 86 A6 STX SA6 
E6D1 20 AB E6 JSR SE6AB 
BE6D4 AQ 2C LDA #52C 
E6D6 91 AS STA (S$A5),Y 
E6D8 C8 INY 

E6D9 AD D5 02 LDA $02D5 
E6DC 8D 43 02 STA $0243 
E6DF 8A TXA 

E6EO 20 06 E7 JSR SE706 
E6E3 A9 2C LDA #$2C 
E6E5 91 AS STA ($A5),¥Y 
E6E7 C8 INY 

E6E8 A5 80 LDA $80 
E6EA 20 9B E6 JSR SE69B 
E6ED AY 2C LDA #$2C 
E6EF 91 AS STA (SA5),Y 
E6F1 C8 INY 

E6F2 AS 81 LDA $81 
E6F4 20 9B E6 JSR SE69B 
E6F7 88 DEY 

E6F8 98 TYA 

E6F9 18 CLC 

E6FA 69 DS ADC #S$D5 
E6FC 8D 49 02 STA $0249 
E6FF E6 AS INC SA5 
E701 AQ 88 LDA #$88 
E703 85 F7 STA SF7 
E705 60 RTS 


Set pointer to position in buffer 
Save buffer address of 

error message buffer ($02D5) in 
pointers 

SA5/SA6 

Write error number in buffer 

Take up comma (,) after 

error number in buffer 

Set buffer pointer to next byte 
Copy first digit of error number 
into output register 

Repeat error number 

Write error in text form 

to buffer, and set in 

trailing comma 

Set buffer pointer to next byte 
Convert track number where error 
occurd into ASCII;put into buffer 


Set comma(,) into buffer 


as separating character 

Buffer pointer to next byte 
Convert sector number where error 
occurd into ASCII;put into buffer 
Calculate length 

of error message 

in buffer and 


save 

it down 

Buffer ptr. ($A5/SA6) to 2nd char 
Set ‘ready for output’ 


flag and 
return from this subroutine 
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a_i SSS SSS Sse sess 


[E6E0/E75F] 
Write error 
E706 AA 

E707 AS 86 
E709 48 

E70A AS 87 
E70C 48 

E70D AQ FC 
E70F 85 86 
E711 A9 E4 
E713. 85 87 
E715 8A 

E716 A2 00 
E7181 cl 86 
E71A FO 21 
E71C 48 

E71D 20 75 
E720 90 05 
E7221 20 75 
E725 90 FB 
E7272 AS 87 
E729 C9 E6 
E72B 90 08 
E72D DO OA 
E72F A9 OA 
E731 C5 86 
E733 90 04 
E7351 68 

E736 4C 18 
E7392 68 

E73A 4C 4D 
E73D* 20 67 
E740 90 FB 
£7421 20 54 
E745 20 67 
E748 90 F8 
E74A 20 54 
E74D2 68 

E74E 85 87 
E750 68 

E751 85 86 
E753 60 


message in text form to error buffer 


E7 


E7 


E7 


E7 
E7 


E7 
E7 


E7 


TAX 
LDA 
PHA 
LDA 
PHA 
LDA 
STA 
LDA 
STA 
TXA 
LDX 
CMP 
BEQ 
PHA 
JSR 
BCC 
JSR 
BCC 
LDA 
CMP 
BCC 
BNE 
LDA 
CMP 
BCC 
PLA 
JMP 
PLA 
JMP 
JSR 
BCC 
JSR 
JSR 
BCC 
JSR 


$86 
$87 
#SFC 
$86 
#SE4 
$87 


#$00 


($86,X) 


SE73D 


SE775 
SE727 
SE775 
SE722 
$87 
#SE6 
$E735 
SE739 
#S50A 
$86 
SE739 


$E718 


SE74D 
SE767 
S$E73D 
SE754 
SE767 
SE742 
SE754 


$87 


$86 


Save error number 

The value which will be used in 
temporary storage will be 
retained, since this 

address is needed for the routine 
Sett address for 

beginning of text 

table (SE4FC) into 

pointers $86/$87 

Get error number again 
Initialize buffer pointer 
Compare number with text table 
Identical? 

NO-Save error number 

Increment buffer pointer 

Jump to $E727 

Increment buffer pointer 

Jump to $E727 

Get high-byte of text pointer; 
test for end value 


Reached the end of the table? 


YES-—Same memory page reached? 
YES—Compare lo-byte of textpointr 
with end value 

Reached end of error table? 
YES—Repeat error number 

Search for error number 

Get error numbe again 

End 

Get byte from error text 
Start-flag set? 

YES—-Write char. to buffer 

Get byte from error text 

Is end flag set? 

YES-Write character into buffer 
Get zeropage value again and 
get original 

value 

ready again 

Return from this subroutine 
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[E742/E74A] 


Write ASCII character into buffer 
Non-ASCII characters 


E7 


CMP #520 
BCS $E763 
TAX 

LDA #520 
STA (S$A5),Y 
INY 

TXA 

JSR SE706 


STA (SA5),Y 


will be interpreted as error numbers 


Compare with space 

Is character > space? 

NO-Save char. as error number and 
write space into 

current buffer position 

Set buffer pointer to next char & 
get error number again 

Error message text to buffer 
Return from this subroutine 

Write ASCII char to buffer and 
set buffr pointr to next position 
Return from this subroutine 


character of error text from the text table 


INC $86 
BNE $E76D 
INC $87 
LDA ($86, X) 
ASL A 

LDA ($86, X) 
AND #S7F 


Text pointer to next character 
Has a transfer occurred ? 
YES—Correct high-byte 

Get character from text table 
Bit? in carry 

Get original char one more time 
Bit7 masked 

Return from this subroutine 


E754 C9 20 
E756 BO OB 
E758 AA 
E759 AQ 20 
E75B 91 AS 
E75D C8 
E75E 8A 
E75F 20 06 
E762 60 
E7632 91 A5 
E765 C8 
E766 60 
[E73D/E745] 
Get a 

E767 E6 86 
E769 DO 02 
E76B E6 87 
E76D2 Al 86 
E76F 0A 
E770 Al 86 
E772 29 7F 
E774 60 
[E71D/E722] 
Get current 
E775 20 6D 
E778 E6 86 
E77A DO 02 
E77C E6 87 
E77El 60 


byte 
E7 


from table 
JSR SE76D 
INC $86 
BNE SE77E 
INC $87 


Get character from table 

Text pointer turns to next byte 
Has there been a transfer? 
YES-—Correct high-byte 

Return from this subroutine 
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[Not used in 1571 DOS] 


E77F 60 RTS Earlier 1541 ROM vrsions had 
E780 60 RTS an Autoboot routine here 
E781 EA... NOP Eventual jump in ths routine 
E7Al ... EA NOP is caught and ended here by 
E7A2 60 RTS the 1571 drive 


{Jump through routine C146] 
Routine for &-Command [AUTOSTART program] 


E7A3 20 FE AS JSR SASFE Patch (=CORRECTION) for 1571 DOS 
E7A6 EA NOP [No operation, modified for 
E7A7 EA NOP 1541 ROM] 

E7A8 20 58 F2 JSR SF258 No function (RTS) 

E7AB AD 78 02 LDA $0278 No. of filenames marked for 
E7AE 48 PHA Data entry 

ETJAF A9 01 LDA #$01 Limit work to 

E7B1l 8D 78 02 STA $0278 First file 

E7B4 AQ FF LDA #$FF Entry flag 

E7B6 85 86 STA $86 Cleared 

E7B8 20 4F C4 JSR $C44F Look in directory/file entry 
E7BB AD 80 02 LDA $0280 Flag/search result (track #) 
E7BE DO 05 BNE SE7C5 File entry found? 

E7CO AQ 39 LDA #$39 Error message 

E7C2 20 C8 Cl JSR $C1C8 "39 file not found" displayd 
E7C5! 68 PLA Number of filenames repeated 
E7C6 8D 78 02 STA $0278 and reset 

E7C9 AD 80 02 LDA $0280 Track of first file sector 
E7CC 85 80 STA $80 transferred 

E7CE AD 85 02 LDA $0285 First sector number 

E7D1 85 81 STA $81 transferred 

E7D3 AQ 03 LDA #$03 Identifier for USR data 

E7D5 20 77 D4 JSR $D477 opened; first sector read in 
E7D8+ a9 00 LDA #$00 Check sum 

E7/DA 85 87 STA $87 Clear 

E7DC 20 39 E8 JSR SE839 Get starting memory address 
E7DF 85 88 STA $88 from buffer 

E7E1 20 4B E8 JSR SE84B and put into point $88/89; 
E7E4 20 39 E8 JSR $E839 Compare this 

E7E7 85 89 STA $89 value with 

E7E9 20 4B E8 JSR SE84B Checksum 

E7EC AS 86 LDA $86 Flag/"Starting address read" 
E7JEE FO OA BEQ SE7FA set ? 

E7FO AS 88 LDA $88 No, note starting address 
E7F2 48 PHA Low byte and 

E7F3 A5 89 LDA $89 Note starting address 

E7/F5 48 PHA Low byte 

E7F6 A9 00 LDA #$00 Set flag for "Starting 
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Get byte 
E839 20 
E83C AS 
E83E DO 
E840 20 
E843 AQ 
E845 20 
E8481 as 
E84A 60 


39 E8 
4B E8 


39 E8 


4B E8 


35 CA 


3E DE 


45 E6 


35 CA 
F8 


STA 
JSR 
STA 
JSR 
JSR 
LDY 


STA ($88) ,Y 


JSR 
LDA 
CLC 
ADC 
STA 
BCC 
INC 
DEC 
BNE 
JSR 
LDA 
CMP 
BEQ 
JSR 
LDA 
JSR 
LDA 
BNE 
PLA 
STA 
PLA 
STA 


$86 


SE839 
S8A 


SE84B 
$E839 
#500 


SE84B 
$88 


#$01 


$88 
SE817 
$89 
S8A 
SE802 
SCA35 
$85 
$87 
SE82C 
SDE3E 
#550 
SE645 
SF8 
SE7D8 


$89 


$88 


JMP ($0088) 


[E7DC/E7E4/E7FA/E802 ] 
from buffer 


JSR 
LDA 
BNE 
JSR 
LDA 
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address read" 

No. of data bytes following 
Gotten from buffer and noted 
Initialize checksum 

Get data byte from Buffer 
Initialze memory pointer 

and store byte 

Byte taken in checksum 
Memory address (low byte) 
The address at which data is 
stored should be incremented 
by one 

Anything being transferred? 
Yes, correct high byte 
Counter/total # data bytes 
All bytes in memory? 

Yes, get checksum f/ Buffer 
Compare checksum 

with value reached 

Identical ? 

Get track and sector 

Error message 

"SO record not present"displayed 
Flag for get EOI (last char) 
Has last char. been used? 
Yes, repeat starting address 
of program,, 

and put into 

pointers $88/$89 

Jump to prg via this pointer 


Get byte from sector 

Test EOI flag 

Was that the last character? 
Yes, set track and sector 

Error message 

"51 Overflow in record"displayed 
Get last character 

Back to original routine 
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[E7E1/E7E9/E7FF/E809] 
Implement checksum 


CLC 
ADC 
ADC 
STA 
RTS 


$87 
#$00 
$87 


Add new byte 

to pre-existng vals ADDIEREN 
Calculate overflow 

And note new checksum value 
Return from subroutine 


Capture flag (ATN) from serial bus set 


LDA 
LDA 
STA 
RTS 


$1801 
#$01 
S7C 


[ERROR; Descr. in 
Flag set for 


Teles] 


"ATN Receive" 


Return from subroutine 


Routine/controlling serial bus 


E84B 18 

E84C 65 87 
E84E 69 00 
E850 85 87 
E852 60 
[9DC1] 

E853 AD 01 18 
F856 A9 01 
E858 85 7C 
E85A 60 
[A7BD/EA56/EA68] 
E85B 78 

E85C A9 00 
E85E 85 7C 
E860 85 79 
E862 85 7A 
E864 A2 45 
E866 9A 

E867 A9 80 
E869 85 F8 
E86B 85 7D 
E86D 20 B7 E9 
E870 20 AS EQ 
E873 AD 00 18 
E876 09 10 
E878 8D 00 18 
E87B! AD 00 18 
E87E 10 57 
E880 29 04 
E882 DO F7 
£8841 20 c9 E9 
E887 C9 3F 
E889 DO 06 
E88B A9 00 
E88D 85 79 
E88F FO 71 
£891! co SF 
E893 DO 06 
E895 A9 00 
E897 85 7A 
E899 FO 67 


SEI 
LDA 
STA 
STA 
STA 
LDX 
TXS 
LDA 
STA 
STA 
JSR 
JSR 
LDA 
ORA 
STA 
LDA 
BPL 
AND 
BNE 
JSR 
CMP 
BNE 
LDA 
STA 
BEQ 
CMP 
BNE 
LDA 
STA 
BEQ 


#$00 
$7C 
$79 
STA 
#545 


#$80 
SF8 
$7D 
SE9B7 
SE9A5 
$1800 
#$10 
$1800 
$1800 
SE8D7 
#304 
SE87B 
SE9C9 
#$3F 
SE891 
#$00 
$79 
$E902 
#S5F 
SE89B 
#$00 
STA 
$E902 


Disable bus/disk controller 
Clear flags with zero: 

Set flags for "ATN RECEIVE" 
Flag for listen 

Flag for talk 

Set new 

stack pointer 

Clear flags w/$80 (BIT7 active): 
Flag / EOI (End of Transfer) 
Flag for ATN mode 

Clock set to high 

Data lines set to low 

Get bus control register 
ATN request cleared 

and given on bus 

Bus status repeated 

Is ATN SET? 

No, mask clock line 

Is clock set ? 

Yes, readin commnd word from 
bus and compare with UNLIST 
Identical ? 

Yes, clear flag for 

LISTEN 

Jump back to $E902 

Compare with UNTALK 
Identical ? 

Yes, clear flag for 

TALK 

Jump back to $E902 
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E89B 
E89D 
E8 9F 
ESAl 
E8A3 
E8A5 
E8A7 
EsA9 
E8AB 
E8AD 
E8AF 
E8B1 
E8B3 
E8B5 
E8B7 
E8B8 
E8BA 
E8BC 
E8BE 
ESBF 
E8Cl 
E8C3 
E8C5 
E8C7 
E8C9 
E8CB 
E8CD 
E8CE 
E8D1 
E8D22 
E8D5 
E8D7° 
E8D9 
E8DB 
E8DE 
E8E0 
E8E3 
E8E5 
E8E7 
ESEA 
ESED1 
ESEF 
ESF1 
ESF4 


C5 
DO 
AQ 


AA 


29 


78 
OA 
01 
TA 
00 
719 
29 
77 
OA 
01 
719 
00 
7A 
1B 


60 
60 
3F 


84 
OF 
83 
84 
FO 
EO 
35 


co 


00 
AD 
00 
TD 
00 
EF 
00 
719 
06 
2E 
6B 
TA 
09 
9C 
AE 


DA 


18 


18 


18 


EA 
83 


E9 
EQ 


$78 
SE8A9 
#$01 
S7A 
#$00 
$79 
SE8D2 
$77 
SE8B7 
#$01 
$79 
#500 
STA 
SE8D2 


#$60 
#$60 
SE8FD 


$84 
#S0F 
$83 
$84 
#SFO 
#SE0 
SE902 


SDACO 


$1800 
SE884 
#$00 
$7D 
$1800 
#SEF 
$1800 
$79 
SE8ED 
SEA2E 
$836B 
S7A 
SE8FA 
SE99C 
SEQAE 


Talk address label 

Should talk addr be recevng? 
Yes, set flag for 

TALK 

Flag for LISTEN 

cleared 

Jump back to SE8D2 

LISTEN address label 

Listen addr be receiving? 
Yes, set flag for 

LISTEN 

Flag for TALK 

cleared 

Jump back to SE8D2 

Note command 

Isolate command bits 

for testing 

Identical ? 

Yes, repeat and note 

command word 

Set up proper channel number 
and save it 

Repeat command word 

Combine address bits 

Compare with CLOSE command 
Identical ? 

Yes, enable disk controller 
Close call 

Disable disk/bus controller 
Check ATN bit 
ATN active?; 
No, 

Clear flag for command mode 
Bus control register 

Clear ATN 

and send over bus 

Flag for LISTEN 

Flag set? 

Data from bus put to buffer 
Wait for next command word 
Flag for TALK 

active? 

Data set high 

Clock set low 


if so, wait 
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Buffer data sent over bus 
Wait for next command word 
No TALK or LIST commands 
Data lines reset 

Check ATN 

Is ATN reset? 

No, wait until command end 


[E8F7] 


Data sent after talk call 


E909 
E90A 
E90D 
E90FL 
E911 
E913 
E9151 
£9161 
E919 
E91C 
E91E 
E91F 
E922 
E923 
E9251 
£928 
E92B 
E92D 
E92F 
E931 
£933 
£935 
E9372 
E93A 
E93D 
E93F 
E9411 
E944 
E947 
E949 
E94B2 
E94E 
E951 
£954 
E956 
£958 
E95A 


78 


EB DO 
06 
82 
F2 
O01 


59 EA 
CO EQ 
01 


B7 EQ 


12 
59 EA 
CO EQ 
O01 
F6 
82 
F2 
08 
14 
59 EA 
CO E9 
O1 
F6 
59 EA 
CO E9 
O01 
F6 
AE EQ 
59 EA 
CO EQ 
01 
F3 
08 
98 


SEI 
JSR 
BCS 
LDX 
LDA 
BMI 
RTS 
JSR 
JSR 
AND 
PHP 
JSR 
PLP 
BEQ 
JSR 
JSR 
AND 
BNE 
LDX 
LDA 
AND 
BNE 
JSR 
JSR 
AND 
BNE 
JSR 
JSR 
AND 
BEQ 
JSR 
JSR 
JSR 
AND 
BNE 
LDA 
STA 


SDOEB 
$E915 
$82 

$F2,X 
$E916 


SEA59 
SE9CO 
#501 


SE9B7 


$E937 
SEA59 
SE9CO 
#S$01 
$E925 
$82 
SF2,X 
#$08 
SE94B 
SEA59 
SE9CO 
#$01 
$E937 
SEA59 
$E9CO 
#$01 
$E941 
SE9AE 
SEA59 
SE9CO 
#$01 
SE94B 
#$08 
$98 


Disable disk controller 

Look for free channel and open 
Is there a free channel? 

Yes, get current channel number 
and corresponding status 

Is channel set to read? 

No, return from subroutine 
ATN-Line test 

Read value from bus register 
and get data entry 

Note state of data line 

Clock output set to low 

Get data line status again 
Was data set ? 

Yes, test for ATN command mode 
Get value from bus register 
Isolate data line 

Wait until data is set to low 
Number of internal channels 
Get appropriate status 

and test flag for EOI 

Last character been sent? 
Yes, test for ATN mode 

Get value from bus register 
and test data line 

Wait until data is low 

Test, for ATN command mode 
Get value from bus register 
and isolate data line 

Wait until data input is high 
Clock output set high 

Test for ATN mode 

Get value from bus register 
and analyze data 

Wait until data is set low 
Set number of bits per byte 
in counter 
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E95ct 
BO5F 
E961 
E963 
E965 
E968 
E969 
E96C 
RIG6E 
E971 
£9731 
£9761 
£979 
E97B 
E97D 
E9801 
E983 
E985 
E9872 
E98A 
E98D 
E98F 
E991 
£992 
E995 
E996 
rag91 


20 CO 
29 01 
DO 36 
A6 82 
BD 3E 
6A 


9D 3E 


4C OF 
4C 4E 


EQ 


SE9CO 
#501 
SE999 
$82 


$023E,X 


A 


$023E,X 


$E973 
SE9A5 
SE976 
SE99C 
SE9B7 
$23 
SE980 
SFEF3 
SFEFB 
$98 
SE95C 
SEA59 
$E9CO 
#$01 
SE987 


Get value from bus register 
and test data line 

Is data low? 

Yes, current channel number 
Get corresponding data byte 
and save first bit in carry 
Note remainder 

Is bit =1 ? 

No, data line is set high 
Jump back to S$E976 

Data line set to low 

Clock line set to low 

Test flag for bus mode 

Is bus in 1540 mode ? 

No, 42-Cycle time delay 

Data set low, Clock set high 
Number of bits to be sent 

Is byte already sent? 

Yes, test for ATN mode 

Get value from bus register 
and check data line 

Is data set? 

Yes—Enable disk controller 
Get next data byte from Buffer 
Disable disk controller again 
and sent over bus 

Wait for next command 


[817B/8291/82D8/8300/E8F1/E973/E9D7/E9FA/FEFE] 


Data 
E99C 


line on low set 


AD 00 
29 FD 
8D 00 
60 


18 


18 


LDA 
AND 
STA 
RTS 


$1800 
#$FD 
$1800 


Read bus control register 
Clear bit for 

data line 

Return from subroutine 


[80E6/828C/82F8/833C/E870/E96E/E9F2/EA28]) 
Data line on high set 


E9A5 
E9A8 
E9AA 


AD 00 
09 02 
8D 00 
60 


18 


18 


LDA 


$1800 


ORA #502 


STA 
RTS 


$1800 


Get bus control register 
and set bit for 

data line 

Return from subroutine 
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a a 


Clock line set high 
[817E/822C/E8F4/E94B/FEFB] 


E9AE AD 00 18 LDA $1800 Get bus control register 
E9B1 09 08 ORA #S08 and set bit for clock 
E9B3 8D 00 18 STA $1800 . Line 

E9B6 60 RTS Return from subroutine 


Clock line set low 
[80E3/8200/829EF/8438/E86D/E91F/E976] 





E9B7 AD 00 18 LDA $1800 Get bus control register 
E9BA 29 F7 AND #SF7 and clear bit for 

E9BC 8D 00 18 STA $1800 clock line 

E9BF 60 RTS Return from subroutine 


Values read from bus 


[819C/81FA/8209/821B/8225/8232/827A/82B5/82D1/82EF/8306/8331/E919/E928] 
[E93A/E944/E951/E95C/E98A/E9C6/E9D0/E9E9/EAO0/EA1D] 

E9CO AD OO 18 
E9C3 CD 00 18 CMP $1800 


BE9C6 
E9C8 


DO F8 
60 


LDA 


BNE 
RTS 


$1800 


SE9CO 


Get control. register 

Get it again and compare with 
last value; values constant? 
Yes, return from subroutine 


Data received after 


[E884/EA44] 
E9C9 AQ 08 
E9CB 85 98 
E9cD! 20 59 
E9D0 20 CO 
E9D3 29 04 
E9D5 DO F6 
E9D7 20 9C 
E9DA AQ O01 
E9DC 4C 20 
EODFL 20 59 
E9E2 AD OD 
E9E5 29 40 
E9E7 DO 09 
E9E9 20 CO 
E9EC 29 04 
E9EE FO EP 
F9FO DO 19 
E9F21 20 AS 
E9F5 A2 OA 
EOF7! CA 

E9F8 DO FD 
E9FA 20 9C 
E9FD! 20 59 


EA 
E9 


E9 


FF 


EA 
18 


EQ 


E9 


E9 
EA 


LDA 
STA 
JSR 
JSR 
AND 
BNE 
JSR 
LDA 
JMP 
JSR 
LDA 
AND 
BNE 
JSR 
AND 
BEQ 
BNE 
JSR 
LDX 
DEX 
BNE 
JSR 
JSR 


listen call 


#$08 
$98 
SEA59 
SE9CO 
#$04 
SE9CD 
SE99C 
#$01 
SFF20 
SEA59 
$180D 
#$40 
SEQF2 
SE9CO 
#504 
SE9DF 
SEAOB 
SE9A5 
#SOA 


SEQF7 
SE99C 
SEA59 


Number of bits per data byte 
Initialize counter 

ATN test 

Get bus control register 

and test clock line 

Clock active? 

Yes, activate data-line 
[ERROR—see 7.1.4] 

Wait til data 
ATN test 

Get interrupt flags 

and test flag for timerl 

Is timer running? 

No, get value from bus register 
Isolate clock input 

Is clock set? 

Yes, jump back to SEAOB 

Data line set high 

Delay counter set 

Delay of 51 Cycles 

Is delay running? 

Yes, data set low 

Test bus for ATN command 


is low; timer set 
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Get bus control register 

Test clock line 

Clock set? 

Yes, end of file 

EOI flag set 

Get control register again 
Correct data bits of original 
value, and put in carry 

Test clock line (set by LSR) 
Clock set, file in order? 
Yes, empty register 

(Can't be used for your 

own data) 

Move data bits into temp. buffer 
Test ATN 

Read bus control register 
Test clock line 

Is clock set? 

Yes,counter set from # data bits 
8 bits read yet? 

Yes, set data line to low 
Data byte taken 

Return from subroutine 


FAOO 20 CO E9 
FA03 29 04 
FAO5 FO F6 
FAO07 AQ 00 
EA09 85 F8 
EAOB? AD 00 18 
FAOE 49 01 
FA10 4A 

FAl11 29 02 
FA13 DO F6 
FA15 EA 

FA16 EA 

FA17 EA 

FA18 66 85 
FAIA! 20 59 EA 
FA1D 20 CO E9 
FA20 29 04 
FA22 FO F6 
FA24 C6 98 
FA26 DO E3 
FA28 20 A5 E9 
FA2B AS 85 
FA2D 60 
[EA4B/E8E7] 
Data taken from 
FA2E 78 

FA2F 20 07 Dil 
FA32 BO 05 
FA34 BS F2 
FA36 6A 

FA37 BO OB 
FA39- a5 84 
FA3B 29 FO 
EA3D C9 FO 
FA3F FO 03 
FA41 4C 4E EA 
FA442 20 C9 £9 
EA47 58 

FA48 20 B7 CF 
FA4B 4C 2E EA 
EA4E> AQ 00 
FA50 8D 00 18 
EA53 4C 6B 83 


and put into current buffer 


$D107 
SEA39 
SF2,X 
A 
SEA44 
$84 
#SFO 
#SF0 
SEA44 
SEA4E 
SE9C9 


SCFB7 


Disable disk controller 

Write channel laid out 

Found a free channel? 

Yes, read proper channel status 
Is the channel 

active? 

Yes, get secondary address 

and isolate command bits 
Compare with OPEN command 
Identical? 

No, wait for next command 

Get byte from bus 

Enable disk controller again 
Data byte transferred frm buffer 
Get next byte 

Bus control register 

Reset 

Wait for next command 
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Test if command has been transferred 
[8199/81F7/8206/8218/8222/822F/82B2/82CE/82E5/8303/832E/8425/85F6] 
[869D/8E14/E916/E925/E937/E941/E94E/E987/E9CD/E9DF/E9FD/EAI1A]} 


Flag for "ATN active" 

ATN set ? 

Yes, current status of ATN line 
Is ATN also set? | 

Yes, return from subroutine 

Get current ATN status 

Is ATN still set? 

Yes, get command from bus 

ATN reset 


Hardware error message (Infinite loop) —LED blinking 


Jmp to next 2 bytes (bit command) 


FA59 AS 7D LDA $7D 
EA5B FO 06 BEQ SEA63 
EA5D AD 00 18 LDA $1800 
EA60 10 09 BPL SEA6B 
EA62! 60 RTS 

FA63+ AD 00 18 LDA $1800 
EA66 10 FA BPL $EA62 
EA68 4C B3 A7 JMP $A7B3 
EFA6B! 4c AC AQ JMP SA9AC 
[EAB5/EABE/EAC4] 

EA6E A2 00 LDX #800 
FA70 2C A6 6F .BYTE $2C 
[92B7/EB1F] 

RAM or ROM error (TEST and CHECKSUM) 
FA71 A6 6F LDX S$6F 
FA73 9A TXS 

EA741 BA TSX 

EA751 a9 08 LDA #$08 
EFA77 OD 00 1C ORA $1C00 
EA7A 4C EA FE JMP SFEEA 
EA7D 98 TYA 

EA7E! 18 CLC 

FA7F! 69 01 ADC #$01 
FA81 DO FC BNE SEA7F 
EA83 88 DEY 

EA84 DO F8 BNE SEA7E 
EA86 AD 00 1C LDA $1C00 
EFA89 29 F7 AND #$F7 
FA8B 8D 00 1C STA $1C00 
EASE! 98 TYA 

FASF: 18 CLC 

Ea901 69 01 ADC #$01 
EFA92 DO FC BNE SEA90 
EA94 88 DEY 

FA95 DO F8 BNE SEA8F 
FA97 CA DEX 

EA98 10 DB BPL $EA75 
EA9A EO FC CPX #$FC 
EA9C DO FO BNE SEA8E 
EA9E FO D4 BEQ $EA74 


Get blink counter 

and note it 

Get blink value again 

LED bit (bit 3) set 

in disk controller register and 
LED activated; more at SEA7D 
(0) counter routine 

initialized 

Delay counter 

for approximately 0.3 / 0.1 sec 
after 1 or 2 Mhz time 

Is time running? 

Yes, get control register 

and combine bit for 

"LED on" 

(0) counter routine 

intialized 

Delay counter 

For approximately 0.3 / 0.1 sec 
after 1 OR 2 Mhz time 

Is timer on? 

Blink counter 

still blinking? 

No, wait approximately 1/0.5 sec 
Time running? 

Yes, blink again before starting 
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[89EC/Jump over system vector/ FFFC] 
1571 Reset jump 


RAM and ROM test 


EAAO 78 SEI Disable bus/disk controller 
EAA1 D8 CLD Arithmetic mode set for binary 
EAA2 A2 66 LDX #S$66 Value for DDRA 

EAA4 4C 10 FF JMP SFF10 VIA'S initialized; jump to SEAA7 
EAA7 E8 INX {[ERROR—-see 7.1.4] 

EAA8 AO 00 LDY #500 Initialize offset counter 

EAAA A2 00 LDX #$00 Set pointer to zeropage area 
FAAC! ga TXA Write number of memory cells 
EAAD 95 00 STA $00,X Into memory cells 

EAAF E8 INX Pick next memory cell 

EABO DO FA BNE SEAAC $100 address reached? 

EAB2+ 8A TXA Yes, compare value of memory 
EAB3 D5 00 CMP $00,X location with this value 

EAB5 DO B7 BNE SEA6E Both identical? 

FAB71 F6 OO INC $00,X Yes, increase memory location 
EAB9 C8 INY Offset mem address contents—set 
EABA DO FB BNE SEAB7 All values tested set? 

EABC. D5 00 CMP $00,X Yes, comp with memory 

EABE DO AE BNE SEA6E Identical? 

EACO 94 00 STY $00,X Yes, clear memory locatn with 0 
EAC2 B5 00 LDA $00,X Get contents again 

EAC4 DO A8 BNE SEA6E Was clear in order? 

EFAC6 E8 INX Yes, pick next memory location 
EAC7 DO EQ BNE SEAB2 Reached $100 yet? 

EAC9 E6 6F INC S6F Yes, incremt error blink counter 
EACB A2 80 LDX #$80 Starting address of 

EACD 86 76 STX $76 Operating system ROM 

EACF AQ 00 LDA #$00 Set to $8000 in pointers $75/76 
EAD1 85 75 STA $75 Set 

EAD3 AO 02 LDY #$02 Ignore checksum bytes 

EAD5 18 CLC ROM pointer set 

EAD6! E6 76 INC $76 To next memory page 

EFAD8! 71 75 ADC ($75),Y ROM value for CHECKSUM 

EADA C8 INY Pointer turned to next byte 
EADB DO FB BNE SEAD8 Whole memory page considered? 
EADD CA DEX Yes, # Of ROM memory pages 

EADE DO F6 BNE SEAD6 Entire ROM checked? 

EAEO 69 FF ADC #SFF Yes, calculate checksum value 
EAE2 85 76 STA $76 and note result 

EAE4 DO 39 BNE SEB1F Is error on hand? 

EAE6 EA NOP No, empty space 

EAE7 EA NOP resulting from modification 
EAE8 EA NOP of 1541 
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EAEQ EA NOP 

EAEA AQ O1 LDA #$01 
EAEC 85 76 STA $76 
EAEE E6 6F INC S6F 


EAFO A2 07 LDX #807 
EAF22 98 TYA 
EAF3 18 CLC 


EAF4 65 76 ADC $76 
EAF6 91 75 STA ($75),Y 


EAF8 C8 INY 

EAF9 DO F7 BNE SEAF2 
EAFB E6 76 INC $76 
EAFD CA DEX 


EAFE DO F2 BNE SEAF2 
EBOO A2 07 LDX #$07 
EBO2! c6 76 DEC $76 


EBO4! g8 DEY 
EBO5 98 TYA 
EBO6 18 CLC 


EBO7 65 76 ADC $76 
EBO9 Dil 75 CMP ($75),Y 
EBOB DO 12 BNE SEB1F 
EBOD 49 FF EOR #5FF 
EBOF 91 75 STA ($75),Y 
EB11 51 75 EOR ($75),Y 
EB13 91 75 STA ($75),Y 
EB15 DO 08 BNE SEBI1F 


EB17 98 TYA 
EB18 DO EA BNE SEBO4 
EBIA CA DEX 


EB1B DO E5 BNE $EBO02 
EB1D FO 03 BEQ $EB22 
EB1F2 4C 71 EA JMP $EA71 


[EB1D/EB25:A7C4] 
Initialize zeropage 

EB22 4C CO A7 JMP SA7CO 
EB25 AD 00 1C LDA $1C00 
EB28 29 F7 AND #SF7 
EB2A 8D 00 1C STA $1C00 
EB2D AQ Ol LDA #503 
EB2F 8D OC 18 STA $180C 
EB32 AQ 82 LDA #$82 
EB34 8D OD 18 STA $180D 
EB37 8D OF 18 STA $180E 
EB3A AD OO 18 LDA $1800 
EB3D 29 60 AND #$60 


ROM 

Pick 

memory page 1 

Page # set in blink counter 
Number of RAM pages 

Clear value (Memory #) 

Compute # of 

memory pages and 

write to memory 

Set pointer to next byte 
Entire memory page cleared? 
Yes, set pointer to next page 
Number of RAM pages 

Whole RAM cleared already? 
Yes, # of RAM pages 

RAM pointer to preceding page 
Number of pages yet to be tested 
Get position # 

and 

calculate page #-— 

compare with clear value 

Is memory location right? 
Yes, change values of all bits 
And test for other valences 
Test result 

and clear memory cell (0) 

Was test successful? 

Yes, set processr flgs fr Y-value 
End of memory page? 

Yes, pick next page 

Entire RAM tested yet? 

Yes, jump to SEB22 

Hardware error display 


Stack set to $0100-$0145 

Get disk drive control register 
and switch off disk 

Drive LED 

CA1l (ATN) triggered positive & 
CA2 (WP) to negative 

"Interupt from CAl active" 
Flag cleared 

and activated 

Hardwr-dependent determination 
of device address 
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48 
718 
60 
V7 
00 
00 
00 
99 


EO 
99 


05 
FO 
00 
99 


02 
99 


DS 
99 


02 
99 
FF 
12 
2B 


FA 
05 
A7 
AE 
CD 


F7 
05 
AB 
06 
AC 
FF 
AD 


FE 


02 


yp LY 


A 
#$48 
$78 
#$60 
$77 
#500 
#500 
#500 
$99,X 


SFEEO,Y 


$99,X 


#505 
SEB4F 
#500 
$99,X 


#502 
$99,X 


#SD5 
$99,X 


#502 
$99,X 
#5FF 
#$12 


$022B,X 


SEB76 
#505 

SA7,X 
SAE, X 
SCD, X 


SEB7E 
#$05 
SAB 
#506 
SAC 
#SFF 
SAD 


1571 Internals 


gotten, and the two signifi- 
cant bits 5 and 6 

shifted to positions 

0 and 1 

Device # for talker operation 
generated and stored 

Device # for listener operation 
created and set 

pointer to buffer pointer 

High byte table pointer 

Low byte value 

Clear buffer pointer low byte 
Set high byte pointer 

Get buffer address (high byte) 
and put in pointer 

Pointer to next buffer pointer 
Pointer to next high byte 
Buffer # 

All buffer addresses laid out? 
Yes, low byte of input buffer 
pointer 

High byte pointer 

Turn buffer pointer to 

address $200 

Pointer to next byte 

Low byte of error buffer 

set 

Turn pointer to next byte 
Error message buffer turned to 
address $02D5 

"Channel free" value 

No. of secondary addresses (19) 
Free channel 

Next secondary address 
Entire table used up? 
Yes, # of internal channels (6) 
1. Buffer freed 

2. Buffer freed 

3. Buffer freed 

Set next channel 

All channels considered? 
Yes, assign input buffer 
to channel 4 

Assign ERROR buffer 

to channel 5 

Value/"No buffer allotted" 
in channel 6 (1st buffer 
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EB97 8D 3B 02 STA $023B 


EB9C 8D 3A 02 STA $023A 


EBAl 8D 56 02 STA $0256 


EBAE 8D 4F 02 STA S$024F 


EBB3 8D 50 02 STA $0250 


EBBC 20 63 CB JSR §$CB63 
EBBF 20 FA CE JSR SCEFA 
EBC2 20 82 FF JSR SFF82 


[836E/E8EA/EA53] 

Wait loop for command recognition 
EBE7 58 CLI 

EBE8 AD 00 18 LDA $1800 

EBEB 29 E5 AND #SE5 

EBED 8D 00 18 STA $1800 

EBFO AD 55 02 LDA $0255 

EBF3 FO OA BEQ SEBFF 

EBF5 A9 00 LDA #$00 

EBF7 8D 55 02 STA $0255 


and 2nd buffer) 

Secondary address 16 leads 

to channel 5 

Secondary address 15 to channel 4 
(Status:WRITE channel only) 
Flags for channel layout arranged 
Channels 0-3 freed up 

Flag for "Write channel" 

Set for channel 4 

Flag/"Read channel/no EOI" 

Set for channel 5 

Flags set to buffer layout 

(Set bit=Set buffer) 

Buffers 0-4 

freed up 

Write-protect notch 

status flag 

cleared 

Jmp table pointer/Switch commands 
Initialize buffer channel table 
Activate disk controller routine 
Pointer to NMI or SWITCH 
command between 1541 and 1540 

in $65/$66 set 

in S$EB22 

Sector pawning (6) 

determined 

Number of reader searches by 
error set to 5 

DOS power-up message 

"73 CBM DOS V3.0 1571"displayed 
Bus lines 

reset 

Input/output layout %00011010 
determined 

CIA 6526 initialized 


Enable bus/disk controller 
Get bus control register 

and clear all outputs 

and set bus to output status 
Flag/"Command received" 

set? 

Yes, command flag 

cleared 
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LS SS Sy rs 


NOP from modification 
of 1541 ROM 
Command from COMP. executed 


EBFA EA NOP 
EBFB EA NOP 
EBFC 4C 1C A6 JMP 
[A628/EBF3/EC9B] 

Wait for command 

EBFF 58 CLI 
ECOO AS 7C LDA 
ECO2 FO 03 BEQ 
ECO4 4C 94 A6 JMP 
ECO71 58 CLI 
ECO8 A9 OE LDA 
ECOA 85 72 STA 
ECOC AQ 00 LDA 
ECOE 85 6F STA 
EC10 85 70 STA 
Ec121 a6 72 LDX 
EC14 BD 2B 02 LDA 
EC17 C9 FF CMP 
EC19 FO 10 BEQ 
EC1B 29 3F AND 
EC1D 85 82 STA 
EC1F 20 93 DF JSR 
EC22 AA TAX 
EC23 BD 5B 02 LDA 
EC26 29 01 AND 
EC28 AA TAX 
EC29 F6 6F INC 
EC2B! cé6 72 DEC 
EC2D 10 E3 BPL 
EC2F AO 04 LDY 
EC311 B9 00 00 LDA 
EC34 10 05 BPL 
EC36 29 01 AND 
EC38 AA TAX 
EC39 F6 6F INC 
EC3B: gg DEY 
EC3C 10 F3 BPL 
EC3E 78 SEI 
EC3F AD 00 1C LDA 
EC42 29 F7 AND 
EC44 48 PHA 
EC45 AS 7F LDA 
EC47 85 86 STA 
EC49 AQ 00 LDA 
EC4B 85 7F STA 
EC4D AS 6F LDA 


$72 
$022B,X 
#$FF 
SEC2B 
#$3F 
$82 
SDF93 


$025B,X 
#501 


S6F,X 
$72 
SEC12 
#$04 
$0000,Y 
SEC3B 
#$01 


S6F,X 


SEC31 


$1C00 
#SF7 


S7F 
$86 
#500 
STF 
S6F 


Enable bus/disk controller 
flag for ATN receive 

set? 

Yes— 

Enable disk/bus controller again 
Largest secondary address for 
files available 

Outstanding job counter 
cleared for disk drive 0 and 
disk drive 1 

Get secondary address 

and check corresponding channel 
status “free" value 

Is channel free? 

No, get and note # of in- 
ternal channels allotted 

Get and note 

buffer # 

Job code of buffer determined 
and last-used disk drive 
noted 

Increment # of jobs 

Next secondary address 

All channels checked? 

Yes, buffer # 

Get buffer job code 

Is job in process? 

Yes, get and note disk drive 
number 

Increment # of jobs 

Choose next buffer 

All jobs tested? 

YES—Disable bus/disk controller 
Get disk control register 

LED reset and mask generated 
For "LED OUT" noted 

Current drive 

Note current disk 

drive 0 

chosen 

Number of jobs for drive 0 
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SNe EEE 


OB 
1C 
03 
13 


08 


TF 
710 
OB 
1D 
03 
13 


00 


D3 


D3 


Are any jobs accomplished? 

Yes, flag for write-protect light 
Should diskette be initialized? 
Diskette initialization 

Get mask for drive control again, 
Switch LED and save 

again 

Choose drive 1 

Drive 1 job counter 

Are drive 1 jobs done? 
Yes,write-protect flag for drivel 
Diskette change found? 

Close all drive channels 

Bring back drive control mask 

and set LED for drive 1 

—note again 

Call back and take up 

Current disk drive 

Get disk control mask 


LED error blinking 
6C 02 LDX 


EC72 
EC75 
EC77 
EC7A 
EC7C 
EC7E 
Ec81+ 
EC84 
EC86 
EC88 
Ec8BL 
EC8E 
EC 90 
EC93 
EC95 
EC98° 


AE 
FO 
AD 


8E 
8D 


ral 
00 
80 
03 
8B 
05 
12 
AO 
05 
6C 
08 
6D 
10 
6C 
00 


1c 


BEQ 
LDA 
CPX 
BNE 
JMP 
LDX 
BMI 
LDX 
STX 
DEC 
BNE 
EOR 


control 


$026C 
SEC98 
$1000 
#$80 

$EC81 
SEC8B 
$1805 
SEC98 
#SAO 

$1805 
$026C 
SEC98 
$026D 


Test error flag 


get control register 
Test blink phase counter 
timer reset? 

No, go on 

High byte of timer 1 

Is counter running? 

Yes, high byte 

reset 

Blink counter decremented 
Is counter running? 

LED switched 

Blink counter 0.4/ 0.2 sec. 
Delay set 

LED controlled 

Blink some more 
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[DAA7 ] 


Directory for 'Load "$"'sets up directory to load as BASIC program 


EC 9E 
ECAO 
ECA2 
ECA4 
ECA7 
ECA9 
ECAC 
ECAE 
ECBO 
ECB3 
ECB6 
ECB7 
ECB9 
ECBC 
ECBE 
ECC1 
ECC3 
ECC6 
ECC8 
ECCB 
ECCE 
ECD1 
ECD4 
ECD6 
ECD9 
ECDC 
ECDF 
ECEO 
ECE1 
ECE3 
ECE5 
ECE7 
ECEA 
ECEC 
ECEF 
ECF2 
ECF5 
ECF7 
ECFA 
ECFD 
EDOO 
EDO3 
EDO6 
EDO8 
EDOB 


AQ 
85 
AQ 
20 
A9 
20 


00 
83 
01 
E2 
00 
C8 
82 
00 
44 
93 


TF 
5B 
O01 
Fl 
04 
Fl 
01 
Fl 
Fl 
72 
Fl 
00 
Fl 
59 
93 


99 
99 
00 
Fl 
O01 
Bl 
Fl 
CE 
2C 
72 
Fil 
73 
Fl 
59 
00 
Fil 
DD 


D1 


D4 


02 
DF 


02 


CF 


CF 


CF 
CF 
02 
CF 


CF 
ED 
DF 


CF 


CF 
CF 
C6 


02 
CF 
02 
CF 
ED 


CF 


LDA 
STA 
LDA 
JSR 
LDA 
JSR 
LDX 
LDA 
STA 
JSR 
TAX 
LDA 
STA 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
JSR 
LDA 
JSR 
LDA 
JSR 


#500 
$83 
#501 
SD1E2 
#$00 
SD4C8 
$82 
#$00 


$0244,X 


SDF 93 


S7F 


$025B,X 


#$01 
SCFF1 
#504 
SCFF1 
#501 
SCFF1 
SCFF1 
$0272 
SCFF1 
#$00 
SCFF1 
SEDS9 
SDF93 
A 


$99,X 
$99,X 
#$00 

SCFF1 
#501 

SCFF1 
SCFF1 
SC6CE 
SED23 
$0272 
SCFF1 
$0273 
SCFF1 
SED59 
#500 

SCFF1 
SECEA 


set zero as current 

2ndary address(load channel) 
Look for read channel and 

set pointer position in appro- 
priate buffer 

Reset buffer to null 

Number of channels found 
Clear pointer to end of buffer 
entrance 

Get and note number of 

buffers chosen 

Get current drive # and 
arrange drive table buffer 
starting address of "Imagi 
ary" BASIC program ($0401) 
written to 

current buffer 

Two fillbytes as placeholder 
for the bASIC line pointer to 
write to the buffer 

Get drive number, and put in 
buffer as low byte of the line 
number; the high byte 

is set to null 

Transfer disk name to buffer 
Get the number of the current 
buffer, double, and 

decremt pointer from current 
buffer position by two 
characters 

Store end-of-BASIC line 

in buffer 

Set up two bytes as placeholders 
for chaining of 

BASIC lines 

Read entry from directory 

All entries handled? 

No, # of blocks laid out (low) 
as low byte of BASIC line # & 
high byte of # blocks as hi byte 
of BASIC line # in buffer 

Copy dir. entry in buffer 
set"End-Of-BASIC line"! 

in buffer 

Buffer full? 
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EDopD 
ED10 
ED11 
ED12 
ED14 
ED16 
ED18 


20 93 DF JSR 


OA 
AA 
AQ 
95 
AQ 
A4 
8D 
99 
AS 


594 02 
F2 00 


ASL 
TAX 
LDA 
STA 
LDA 
LDY 
STA 


SDF 93 
A 


#500 
$99,X 
#$88 
$82 
$0254 


SOOF2,Y 


$85 


No, get # of current buffers 
Double number 

and reset pointer to current 
position of corresponding 
buffer 

Flag/"Directory not in buffer" 
Get channel number 

Set flag 

Switch channel status to read 
Get current data byte 

Return from subroutine 


[ECF5] 


Directory output ended 


ED23 AD 72 02 LDA $0272 Take # of free blocks in 

ED26 20 F1 CF JSR SCFF1 $0272/0273 as BASIC line # 
ED29 AD 73 02 LDA $0273 and write to 

ED2C 20 Fl CF JSR SCFF1 buffer 

ED2F 20 59 ED JSR SED59 Write"BLOCKS FREE"/ buffer 
ED32 20 93 DF JSR S$DF93 Get # of current buffer 

ED35 OA ASL A Double number 

ED36 AA TAX Pointer for current character 
ED37 D6 99 DEC $99,X position in buffer set in two 
ED39 D6 99 DEC $99,X bytes 

ED3B AQ OO LDA #S$00 End-of-line marker and two 
ED3D 20 F1 CF JSR SCFF1 blank string bytes (End-of- 
ED40 20 Fl CF JSR SCFF1 program markers), put into 
ED43 20 Fl CF JSR SCFF1 current buffer 

ED46 20 93 DF JSR SDF93 Get current buffer number 
ED49 OA ASL A Double number 

ED4A A8 TAY Get number of bytes still 
ED4B B9 99 OO LDA $0099,Y in buffer and set as pointer 
ED4E A6 82 LDX $82 for the end bytes transferred 
ED50 9D 44 02 STA $0244,xX from 

ED53 DE 44 02 DEC $0244,X buffer 

ED56 4C OD ED JMP SEDOD End 

[ECD9/ED03/ED2F] 

Copy directory entry into current buffer 

ED59 AO OO LDY #$00 Initialize buffer pointer 
ED5B B9 Bl 02 LDA $02B1,Y Get char. from directory buffer 
ED5E 20 Fil CF JSR SCFF1 and transfer to current buffer 
ED61 C8 INY Set pointer to next character 
ED62 CO 1B CPY #51B Number of char. per entry 
ED64 DO F5 BNE SED5B All characters copied? 

ED66 60 RTS Yes, return from subroutine 
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[D40E} 

Get byte from directory 
ED67 20 37 D1 JSR $D137 
ED6A FO Ol BEQ SED6D 
ED6éC 60 RTS 

ED6D+ 85 85 STA $85 
ED6F A4 82 LDY $82 
ED71 B9 44 02 LDA $0244,Y 
ED74 FO O8 BEQ SED7E 
ED76 AQ 80 LDA #$80 
ED78 99 F2 00 STA SOOF2,Y 
ED7B AS 85 LDA $85 


ED7D 60 RTS 
ED7E! 48 PHA 
ED7F 20 EA EC JSR SECEA 
ED82 68 PLA 
ED83 60 RTS 


[Jump to routine C146] 
Routine for validate command 
ED84 20 D1 C1 JSR $C1D1 
ED87 20 42 DO JSR $D042 
ED8A A9 40 LDA #$40 
ED8C 8D F9 02 STA S0O2F9 
ED8F 20 C7 A7 JSR SATC7 
ED92 AQ OO LDA #$00 
ED94 8D 92 02 STA $0292 
ED97 20 AC C5 JSR S$C5AC 
ED9A DO 3D BNE SEDD9 
ED9c! ag 00 LDA #$00 


ED9E 85 81 STA $81 
EDAO AD 85 FE LDA SFE85 
EDA3 85 80 STA $80 


EDA5 20 ES ED JSR SEDE5 
EDA8 AQ 00 LDA #S$00 

EDAA 8D F9 02 STA $02F9 
EDAD 20 FF EE JSR SEEFF 


[EDDD] 

All blocks of a file put into BAM 
EDB3 C8 INY 

EDB4 Bl 94 LDA ($94),Y 

EDB6 48 PHA 

EDB?7 C8 INY 

EDB8 Bl 94 LDA ($94),Y 

EDBA 48 PHA 


Get byte from file 

End of file reached? 

No, return from subroutine 
Save last data byte 

Get # of channels 

No. of bytes to be transferred 
No more data? 

No, set channel status to 
"READ/EOI" and 

get last data byte again 
Return from subroutine 

Get # of data bytes 
Produce directory line 

Get last data byte again 
Return from subroutine 


Get drive # from command string 
Initialize diskette 

Flag for"ILLEGAL BAM™' 

set 

Produce new BAM 

Clear pointer for directory 
entry; set search flag 

Look for files in directory 
Found an entry? 

No, set sector numbers 

to null 

Get and set up 

directory track number (18) 
Put directory track in BAM 
Clear flag for "ILLEGAL 

BAM" 

Write BAM to diskette 
"OK"displayed,end of command 


Set dir. buffer pointer to track 
of first data block-—and 

get (and note) track number 

Set buffer pointer to next char. 
Get and save sector number 

of first data block 
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EDBB AO 13 LDY #$13 Set buffer pointr to position of 
EDBD Bl 94 LDA ($94),Y side sector pointer & get track 
EDBF FO OA BEQ SEDCB Side sector block avail.?’ 

EDC1 85 80 ST $80 Yes, Save track number of first 
EDC3 C8 INY sector,get the sector # from 
EDC4 Bl 94 LDA ($94),Y the directory 

EDC6 85 81 STA $81 buffer 

EDC8 20 ES ED JSR SEDE5 Read, lay out side sector blocks 
EDCB! 68 PLA Get sector number again and 
EDCC 85 81 STA $81 save it 

EDCE 68 PLA Set up and save track 

EDCF 85 80 STA $80 number again 

EDD1 20 E5 ED JSR SEDES5 Read data block, put into BAM 
EDD4! 20 04 C6 JSR $C604 Get next legal file entry 

EDD7 FO C3 BEQ SED9C All files checked? 

EDD9 ao 00 LDY #$00 Set buffer pointer to lst char. 
EDDB Bl 94 LDA ($94),Y Get identifier for filetype 
EDDD 30 D4 BMI SEDB3 Are files closed properly? 

EDDF 20 B6 C8 JSR SC8B6 No, clear file 

EDE2 4C D4 ED JMP SEDD4 Go on to next filename 
[EDA5/EDC8/EDD1] 


All blocks following a file 


EDE5 20 SF D5 JSR SD55F Check track and sector number 
EDE8 20 90 EF JSR SEF90 Put current block in BAM 

EDEB 20 75 D4 JSR $D475 Read block in buffer 

EDEE! a9 00 LDA #$00 Set buffer pointer to beginning 
EDFO 20 C8 D4 JSR $D4C8 of file block 

EDF3 20 37 D1 JSR $D137 Get lst byte from file block and 
EDF6 85 80 STA $80 save track of next block 

EDF8 20 37 Dl JSR $D137 Get 2nd byte of file block and 
EDFB 85 81 STA $81 store corresponding sector 

EDFD AS5 80 LDA $80 Test track identifier for EOF; 
EDFF DO 03 BNE SEEO4 last block of file? 

EEO1 4C 27 D2 JMP $D227 Yes, close channel and end 

EEO41 20 90 E JSR SEF90 Block in BAM as stored identifir 
EEO? 20 4D D4 JSR $D44D Read next file block and 

EEOA 4C EE ED JMP SEDEE continue testing 

[Jump to routine C146] 


Routine for new command 


EEOD 20 12 C3 JSR $C312 Get drive # from command 
EE10 AS E2 LDA SE2 Get number 

EE12 10 05 BPL SEE19 Number in order? 

EE14 AQ 33 LDA #$33 No, ERROR message 

EE16 4C C8 Cl JMP $C1C8 "33 SYNTAX ERROR" output 
EE191 29 01 AND #$01 Set up drive number and save 
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EE1B 
EE1D 
FE20 
EE22 
FE23 
EE24 
EE27 
EE2A 
EE2C 
BE2F 
EE31 
EE34 
EE36 
RE39 
EE3B 
EE3D 
FE40 
EE43 
EE462 
EE49 
EE4B 
EE4E 
FE51 
BE53 
EE562 
EE59 
EE5B 
EE5C 
EE5D 
EESE 
EE61 
EE63 
EE66 
EE68 
EE6B 
EE6D 
EE6F 
EE72 
EE75 
EE76 
EE77 
EE78 
FETA 
EE7C 
EE7D 
EETF 


AA 


7F 
9C 
71F 


7B 
74 
1A 
00 
12 
01 
13 
07 
O01 
80 


2F 


64 
56 
42 
7F 
01 
DS 
03 
72 
C7 
F9 


88 
99 
TA 
1B 
6E 
12 
TF 
DS 
01 


12 
94 


13 
94 


FF 


02 
02 


02 


02 


D3 


FF 


Al 


EE 


DO 


O1 
FE 


D5 
A7 


FE 


02 


Cé 


FE 
01 


STA 
JSR 
LDA 
ASL 
TAX 
LDY 
CPY 
BEQ 
LDA 
STA 
LDA 
STA 
JSR 


LDA 


STA 
JSR 
JMP 
JMP 
JSR 
LDX 
LDA 
CMP 
BEQ 
JMP 
JSR 
LDA 
TAY 
ASL 
TAX 
LDA 
STA 
LDX 
LDA 
JSR 
LDY 
LDX 
LDA 
STA 
TXA 
ASL 
TAX 
LDA 
STA 
INY 
LDA 
STA 


$027B 
$0274 
SEE46 


$0200,Y 


$12,X 


$0201,Y 


$13,X 
$D307 
#$01 
$80 
SFF2F 
SA764 
SEE56 
$D042 
S7F 


$0101,X 


SFED5 
SEE56 
$D572 
SA7CT 
SF9 


A 


SFE88 
$99,X 
$O27A 
#$1B 
SC66E 
#$12 
STF 
SFED5 


$0101,X 


A 


$12,X 


($94) ,¥ 


$13,X 


($94),Y 


as current drive 
Set drive status and operate LED 
Number of current drive 


and Double 


(2-byte-table) 

Compare position of ID pointer 
with length of command string 
Is a new ID given? 

Yes,get and convey ist ID char. 
from input buffer 

Get the second ID 


character 


Close all channels 

Set first track 

to be formatted 

format diskette 

Clear buffer for BAM 
Make sector 18, 0 
initialize diskette 
Get current drive, and 


determine 
be read 


format identifiers to 


Right format? 

No, output "POWER-ON"message 
Create new BAM 

Current buffer number 

Double number 

(Buffer pointer presented 

as a 2-byte number) 

Get name position in sector 18,0 
and put in buffer pointer 
Get buffer number 

Length of diskette name 

Copy disk name to BAM-buffer 
Diskette name pointer 

Get current drive 

Get and store identifier for 
1541/1571 format 

Get and double 


drive 


number 


Get drive ID and put 

into buffer 

Buffer pointer set to next byte 
Get 2 ID chars and 

send to buffer 
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EE81 C8 INY Buffer pointer set up for two 
EE82 C8 INY characters 

EE83 A9 32 LDA #$32 "2A" written 

EE85 91 94 STA ($94),Y as identifier for format 

EE87 C8 INY in directory line with 

EE88 AD D5 FE LDA S$FED5 Diskette name 

EE8B 91 94 STA ($94),Y and ID 

EE8D AO 02 LDY #$02 Write track number 

EE8F 91 6D STA (S$6D),Y in BAM | 

EE91 AD 85 FE LDA SFE85 Set number of directory 

EE94 85 80 STA $80 track 

EE96 20 93 EF JSR SEF93 Set BAM block in BAM as proof 
EE99 AQ 01 LDA #$01 Determine number of first 
EE9B 85 81 STA $81 directory block 

EE9D 20 93 EF JSR SEF93 Put directory block in BAM 
EEAO 20 FF EE JSR SEEFF Write new BAM to disk 

EEA3 20 05 FO JSR SFO05 Clear BAM buffer 

EFA6 AO 01 LDY #$01 Set buff pointer to2nd char. 
EEA8 A9 FF LDA #S5FF Write # of valid buffer bytes 
EEAA 91 6D STA (S$6D),Y to directory block 

EEAC 20 64 D4 JSR $D464 Write directory block 18,1 
EEAF C6 81 DEC $81 Current sector # to null 

EEB1l 20 42 DO JSR $D042 and read sector 

EEB4 4C 94 Cl JMP $C194 "OK" message 

[A6C4/A708] 

New 1541 BAM 

EEB7 20 D1 FO JSR SFOD1 Clear BAM buffer 

EEBA AO 00 LDY #$00 Initialize buffer pointer 
EEBC AQ 12 LDA #$12 Move pointer to track # of next 
EEBE 91 6D STA ($6D),Y block of track 18 

EECO C8 INY Set buffer pointer to sector # 
EEC1 98 TYA (1) 

EEC2 91 6D STA (S6D),Y Sector number 1 taken 

EEC4 C8 INY : Current buffer pointer 

EEC5 C8 INY moved further back by three 
EEC6 C8 INY characters 

EEC7+ a9 00 LDA #S$00 Temporary storage for 

EEC9 85 6F STA S6F list 

EECB 85 70 STA $70 of blocks used 

EECD 85 71 STA $71 Clear 

EECF 98 TYA Track number determined, 

EEDO 4A LSR A for working with the block 
EED1 4A LSR A Availability map (BAM) 

EED2 20 4B F2 JSR S$F24B Max. # of sectors determined 
EED5 91 6D STA (S$6D),Y and put into BAM 

EED7 C8 INY Buffer pointer to next byte 
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EED8 AA TAX Set counter for # of sectors 
EED9! 38 SEC bitflag for "sector used"set 
EEDA 26 6F ROL S6F Bit in 24-bit temp. storage 
EEDC 26 70 ROL $70 Reserved blocks of track 
EEDE 26 71 ROL $71 laid out 

EEEO CA DEX Set next sector in BAM 

EEE1 DO F6 BNE SEED9 All sectors of track? 

EEE3/ BS 6F LDA S6F,X Yes, write contents of temp. 
EEE5 91 6D STA (S6D),Y memory into BAM buffer 

EEE7 C8 INY Buffer pointer to next byte 
EEE8 E8 INX Counter for # of temp.memory 
EEEQ9 EO 03 CPX #$03 compared to three 

EEEB 90 F6 BCC SEEE3 All temp. mem. bytes copied? 
EEED CO 90 CPY #$90 Yes, comp buff pointer w/ $90 
EEEF 90 D6 BCC SEEC7 BAM bits of all tracks dtrmnd? 
EEF1l 4C 75 DO JMP $DO075 Yes, calculat "Blocks free" 


[(C8A7/DB26/DD87/E433] 
Correct BAM and write to diskette 


EEF4 20 93 DF JSR S$DF93 Get current buffer # 

EEF7 AA TAX Get # of corresponding 

EEF8 BD 5B 02 LDA $025B,X job codes 

EEFB 29 01 AND #$01 Determine drive # and save 
EEFD 85 7F STA S7F as current disk drive 

EEFF2 A4 7F LDY $7F Get drive-adapted flag 

EFO1 B9 51 02 LDA $0251,Y for "BAM no good" 

EFO4 DO O01 BNE SEFO7 Must a new BAM be created? 
EFO6 60 RTS No, return to main routine 
EFO71 A9 00 LDA #800 Flag for "Invalid BAM" 

EFO9 99 51 02 STA $0251,Y cleared 

EFOC 20 3A EF JSR SEF3A Get BAM in buffer set pointer 
EFOF AS 7F LDA S$7F Get current drive and 

EF11 OA ASL A double that number 

EF12 48 PHA Note value 

EF13 20 A5 FO JSR S$FOAS5 Copy temp. storage in BAM 
EF16 68 PLA Get drive pointer 

EF17 18 CLC again 

EF18 69 O1 ADC #$01 Go to next temp. storage area 
EF1A 20 A5 FO JSR SFOAS5 Transfer temp. storage into BAM 
EF1D A5 80 LDA $80 Retrieve current track 

EF1F 48 PHA number 

EF20 AQ Ol LDA #$01 Set number to 

EF22 85 80 STA $80 Track 1 

EF241 oa ASLA Save position of 

EF25 OA ASL A track bytes 4 times(4 BAM 
EF26 85 6D STA $6D bytes per track) 

EF28 20 37 AQ JSR S$A937 Check number of blocks free 
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EF2B E6 80 INC $80 Set counter to next track and 
EF2D AS 80 LDA $80 get the 

EF2F CD AC 02 CMP S$O2AC number of the last track+l 
EF32 90 FO BCC SEF24 Last track reached? 

EF34 68 PLA Rearrange old 

EF35 85 80 STA $80 track number 

EF37 4C 8D AS JMP SA58D Write BAM to diskette 
[A5AA/A738/D075/EFOC] 

Read BAM and set buffer pointer 

EF3A 20 OF Fl JSR SF10F Get and note channel number 
EF3D AA TAX for "READ BAM" 

EF3E 20 DF FO JSR SFODF Set out appropriate buffer 
EF41 A6 F9 LDX SF9 Get buffer number 

EF43 BD EO FE LDA SFEEO,X and determine memory address 
EF46 85 6E STA S6E of buffer 

EF48 A9 OO LDA #$00 Memory address put into 

EF4A 85 6D STA $6D pointer S$6D/S6E 

EF4C 60 RTS Return from this routine 
[C814/D33B] 

Get number of "BLOCKS FREE" 

EF4D A6 7F LDX S7F Current drive number 

EF4F BD FA 02 #£4LDA SO2FA,X No. of free blocks (low-byte) 
EF52 8D 72 02 STA $0272 received 

EF55 BD FC 02 LDA S$O2FC,X No. of free blocks (high-byte) 
EF58 8D 73 02 STA $0273 received 

EF5B~ 60 RTS Return from this subroutine 


EFS5C 20 Fl EF JSR SEFF1 
Unused program space from 1541 DOS 


[C87D/C8AD/CCF8] 

Sector released 

EF5F 4C 27 A7 OJMP SA727 Sector in 1571 BAM released 
EF62 38 SEC Flag/" SECTOR already free" 
EF63 DO 22 BNE SEF87 Is the block already released? 
EF65 Bl 6D LDA (S$6D),Y No, get track bit pattern 
EF67 1D E9 EF ORA SEFE9,X Release sector (bit=1) 

EF6A 91 6D STA (S6D),Y and go back into BAM 

EF6C 20 88 EF JSR SEF88 Set flag for "BAM WRITE" 
EF6F A4 6F LDY S6F Current BAM byte pointer 
EF71 18 CLC Flag/"SECTOR tobe released" 
EF72 Bl 6D LDA (S6D),Y Increment # of free 

EF74 69 O01 ADC #S01 blocks in track and 

EF76 91 6D STA (S6D),Y reset 

EF78 AS 80 LDA $80 Get # of spur worked on and 
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EF7A CD 85 FE CMP SFE85 compare with directory track 
EF7D FO 3B BEQ SEFBA Identical? 

EF7F FE FA 02 INC SO2FA,X No, # of blocks on disk+l 
EF82 DO 03 BNE SEF87 Verified overflow? 

EF84 FE FC 02 INC SO2FC,X Overflow considered 

EF87 60 RTS Return to main routine 
[A85F/A895/EF6C/EF9F] 

Set flag for "BAM on diskette illegal3" 

EF88 A6 7F LDX S7F Determine current drive and 
EF8A AQ Ol LDA #S$01 set appropriate flag for 
EF8C 9D 51 02 STA $0251,X "BAM illegal" 

EF8F 60 RTS Return from this subroutine 


[(CD13/EDE8/EE04/F19A/F1F2] 
Lay out sector in BAM 


EF90 20 Fl EF JSR SEFF1 Write last BAM chage to disk 
EF93 4C 74 A8 JMP $SA874 Lay out sector in 1571 BAM 

EF96 FO 36 BEQ SEFCE Is sector already there? 

EF98 Bl 6D LDA ($6D),Y No,get byte/bit pattrn fr laid- 
EF9A 5D E9 EF EOR SEFE9,X out blocks,layout sector (bit=0 
EF9D 91 6D STA (S$6D),Y Re-mark BAM byte 

EFOF 20 88 EF JSR SEF88 Set flag for "BAM WRITE" 

EFA2 A4 6F LDY S$6F Pointer to current BAM byte 
EFA4 Bl 6D LDA ($6D),Y No. of free sectors 

EFA6 38 SEC Decrement the track 

EFA7 E9 O1 SBC #S01 and rewrite 

EFA9 91 6D STA (S6D),¥Y into BAM 

EFAB A5 80 LDA $80 Compar # of track being worked 
EFAD CD 85 FE CMP SFE85 with # of directory track 

EFBO FO OB BEQ SEFBD Identical? 

EFB2! BD FA 02 LDA $02FA,X No. of free blocks on disk 
EFB5 DO 03 BNE SEFBA Borrowing occurred? 

EFB7 DE FC 02 DEC SO2FC,X Yes,decrement hibyte of counter 
EFBA2 DE FA 02. DEC $02FA,X No. of free blocks -1 

EFBD+ BD FC 02 LDA $02FC,X No. of free blocks (high byte) 
EFCO DO OC BNE SEFCE Less than 255? 

EFC2 BD FA 02 LDA S$O2FA,X Yes, # of free blocks (lo byte) 
EFC5 C9 Q3 CMP #$03 Compare to three 

EFC7 BO O05 BCS SEFCE Less than three blocks free 
EFC9 AQ 72 DA #$72 Yes, error message of 

EFCB 20 C7 E6 JSR S$E6C7 "72 DISK FULL" given 

EFCE? 60 RTS Return from this subroutine 
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[A845/A87B] 

BAM buffer pointer set to bit for current sector and bit fetched 
EFCF 20 11 FO JSR S$FO11 Compute and save pointer to 
EFD2 98 TYA start of bit pattern 

EFD3 85 6F STA S6F for track 

EFDS AS 81 LDA $81 Get # of sectors to be 

EFD7 4A LSR A worked with, and divide 

EFD8 4A LSR A by 8 (eight bits per byte) 
EFD9 4A LSR A to get # of BAM bytes 

EFDA 38 SEC Add one to the 

EFDB 65 6F ADC S6F pointer positon returned and 
EFDD A8 TAY note the result 

EFDE A5 81 LDA $81 Get current sector number 
EFEO 29 0Q7 AND #S$07 Calculate and save # of bits 
EFE2 AA TAX per BAM byte 

EFE3 Bl 6D LDA (S$6D),Y Get byte from BAM, isolate 
EFE5 3D E9 EF AND SEFEQ9,X sector bit 

EFE8 60 RTS Return from this subroutine 


[A4FF/A56E/A859/A88F/D2BF/D2CB/EF67/EF9A/EFE5S/F22F] 


EFE9 O01 02 04 08 10 20 40 80 Mask to isolate BAM bits 

[EF 5C/EF90] 

Write BAM to diskette 

EFF1 A9 FF LDA #SFF Set value/"Illegal BAM"flag 
EFF3 2C F9 02 BIT S$O2F9 Check flag status 

EFF6 FO OC BEQ SF004 Equal to null? 

EFF8 10 OA BPL $F004 No, bit 7 cleared 

EFFA 70 08 BVS SF004 No, bit 6 cleared 

EFFC A9 00 LDA #500 Reset flag for"Illegal BAM, 
EFFE 8D F9 02 STA SO2F9 write new BAM" 

FOOl 4C OD AS JMP SA5OD Rewrite BAM to diskette 

F0043 60 RTS Return from this subroutine 
[A764/BF3C/EEA3] 

Clear BAM buffer 

FOO5 20 25 A6 JSR $A625 Set pointer to BAM buffer 
[A5AD/A74C] 

FOO8 AO OO LDY #$00 Clear pointer to buffer positon 
FOOA 98 TYA Buffer to be filled with 0 
FOOB? 91 6D STA ($6D),Y Write to buffer 

FOOD C8 INY Set pointer to next byte 
FOOE DO FB BNE SFOOB Was that last byte in buffer? 
F010 60 RTS YES—return from this subroutine 
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[A8B0/A90C/A925/EFCF/F130] 


FO1l1l AS 6F LDA S6F 
F013 48 PHA 

F014 A5 70 LDA $70 
FO16 48 PHA 

F017 A6 7F LDX $7F 
FO19 BS FF LDA SFF,X 
FO1B+ FO 05 BEQ $F022 
FOID AQ 74 LDA #$74 


FOIF 20 48 E6 JSR S$E648 
F022! 20 OF Fl JSR $F10F 


FO25 85 6F STA S6F 
F027. 8A TXA 

F028 OA ASL A 

F029 85 70 STA $70 
FO2B' AA TAX 

FO2C AS 80 LDA $80 
FO2E DD 9D 02 CMP $029D,X 
FO31 FO OB BEQ $F03E 
F033 E8 INX 

F034 86 70 STX $70 
F036 DD 9D 02 CMP $029D,Xx 
F039 FO 03 BEQ $FO3E 
FO3B 20 5B FO JSR $FO5B 
FO3E2 A5 70 LDA $70 
F040 A6 7F LDX $7F 
F042 9D 9B 02. STA $029B,X 
F045 OA ASL A 

FO46 OA ASL A 

F047 18 CLC 

FO48 69 Al ADC #$Al 
FO4A 85 6D STA $6D 
FO4C AQ 02 LDA #$02 
FO4E 69 00 ADC #$00 
FOSO 85 6E STA $6E 
F052 AO 00 LDY #$00 
F054 68 PLA 

FO55 85 70 STA $70 
FO57 68 PLA 

FO58 85 6F STA S6F 
FOSA 60 RTS 


Zeropage addresses S$6F/$70 
will be used for temp. storage 
for this routine, and thus 
will receive 

current drive number 

and current drive status 
Drive ready? 

No, display: 

"74 drive not ready" 
Determine buffer and channel # 
Send channel number, 

double, and 

send buffer 

number 

Save value 

Test # of current track 
against temp.storage track data 
Identical? 

No, chnge to next temp. 
memory area 

Compare track to ZS 

Are data received here? 

No, get track data in memory 
Pointer to temp. memory 
Current drive 

Save buffer pointer 

Multiply value by 4 

(4 bytes per entry) 

Turn BAM pointer 

to position 

of temporary 

memory 

Set high byte 

or pointer 

Reset the current byte 

Reset zeropage addresses 

S6F and $70 to 

the old 

values 

Return from this subroutine 
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[FO3B] 
Copy BAM 
FO5B A6 
FO5D 20 
FO60 AS 
FO62 AA 
FO63 OA 
FO64 1D 
FO67 49 
FO69 29 
FO6B 85 
FO6D 20 
FO70 AS 
FO72 OA 
FO73. AA 
FO74 AS 
FO76 OA 
FO77 OA 
FO78 95 
FO7A AS 
FO7C OA 
FO7D OA 
FO7E A8 
FO7FL a1 
FO81 99 
FO84 AQ 
FO86 81 
FO88 F6 
FO8A C8 
FO8B 98 
FO8C 29 
FO8E DO 
FO90 A6 
FO92 AS 
F094 9D 
FO97 AD 
FO9A DO 
FO9C 4c 
Foor! og 
FOAl 8D 
FOA4 60 


bytes from 
6F LDX 
DF FO JSR 
7F LDA 

TAX 

ASL 
9B 02 ORA 
O1 EOR 
03 AND 
70 STA 
AS FO JSR 
F9 LDA 

ASL 

TAX 
80 LDA 

ASL 

ASL 
99 STA 
70 LDA 

ASL 

ASL 

TAY 
99 LDA 
Al 02 STA 
00 LDA 
99 STA 
99 INC 

INY 

TYA 
03 AND 
EF BNE 
70 LDX 
80 LDA 
9D 02 STA 
F9 02 LDA 
03 BNE 
80 A4 JMP 
80 ORA 
F9 02 STA 

RTS 


S6F 
SFODF 
S7F 


A 
$029B,X 
#$01 
#$03 
$70 
SFOA5 
SF9 


($99,X) 
$02A1,Y 
#500 
($99,X) 
$99,X 


#$03 
SFOTF 
$70 

$80 
$029D,X 
SO2F9 
SFOOF 
SA480 
#$80 
S02F9 


BAM to temporary storage 


Get channel number 

Read BAM from diskette 

Get and note current 

drive number 

Double number (2 drives) 
Calculate old TS number, 
Switch to another temp. area, 
and save 

New pointer 

Put actual TS contents into BAM 
Current buffer number 
Double (pointer values—2 byte 
numbers) and note 

Multiply current track 

by four 

(4 BAM bytes per track) 
Write value to buffer 
Current TS pointer multi- 
plied by 4 

(4 different TS) 

and set 

Get byte from BAM 

and write to temp storage 
Clear value 

in BAM 

Pointer to next byte 
Pointer to next TS char. 
Pointer checked against 
value of 4 

All bytes copied into TS? 
Yes, get # of currentTS 
Note # of corresponding 
track 

Flag for "Illegal BAM" 

BAM alteration taken place? 
Yes, write BAM to diskette 
set flag for 

"TllegalBAM" 

Return from this subroutine 
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[EF13/EF1A/FO6D) 

Copy BAM bytes from temporary storage to BAM 

FOAS A8 TAY Current TS number 

FOA6 BS 9D 02 LDA $029D,Y Get track # of TS 

FOAS FO 25 BEQ SFODO Is TS laid out? 

FOAB 48 PHA Yes, save track number 
FOAC A9 00 LDA #$00 Temporary storage 

FOAE 99 9D 02 STA $029D,Y freed up 

FOB1 AS F9 LDA S$F9 Double current buffer 

FOB3 OA ASL A Number (pointers are 2-byte 
FOB4 AA TAX values) 

FOB5 68 PLA Get track number again 
FOB6 OA ASL A and multiply by 4 

FOB7 OA ASL A (4 BAM bytes per track) 
FOB8 95 99 STA $99,X Set pointer to track 

FOBA 98 TYA Get TS number:and multiply 
FOBB OA ASL A by four 

FOBC OA ASL A (4 temp. storage areas) 
FOBD A8 TAY and note 

FOBE! B9 Al 02 LDA $02A1,Y Get TS byte from BAM 

FOC1 81 99 STA ($99,X) and write to buffer 

FOC3 AQ O00 LDA #$00 Clear value in 

FOC5 99 Al 02 STA $02A1,Y temporary storage 

FOC8 F6 99 INC $99,X Set pointer to next byte 
FOCA C8 INY Choose next TS character 
FOCB 98 TYA Check if all 4 bytes 

FOCC 29 03 AND #$03 have been transferred already 
FOCE DO EE BNE SFOBE Still bytes to be copied 
FODO! 60 RTS No, return from this subroutine 


[C8F5/D042/EEB7/BF33}) 


Double (2 possible drives) 


Set track value=0 as flag for 
"BAM Pointer inactive" 


Clear pointer to position of current track in BAM 
FOD1 AS 7F LDA S7F Get current drive 
FOD3 OA ASL A 

FOD4 AA TAX and save 

FOD5 AQ 00 LDA #$00 

FOD7 9D 9D 02 STA $029D,X 

FODA E8 INX and then clear 
FODB 9D 9D 02 STA $029D,X pointer 

FODE 60 RTS 


[A4B0/C7BA/EF3E/F05D] Read BAM from 


FODF BS Al LDA $SA7,X 
FOE1 C9 FF CMP #SFF 
FOE3 DO 25 BNE SF10A 
FOES 8A TXA 

FOE6 48 PHA 


Return from this subroutine 
diskette 

Get buffer #, compare with 
flag value for “Buffer free" 
Identical? 

Yes, save channel 

number 
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Cl 


00 


AS 


#580 


$O00A7,Y 


A 


SFE85 
$O6,X 
#500 
$07,X 
SA542 
#S0F 
SF9 


1571 Internals 


Get buffer number 

and save it 

Is there a free buffer? 

No, display 

"70 No channel" error message 
Set # of current buffer 

Get channel # again 

and save it 

get buffer # and enter flag 
for “Buffer stil not active" 
in table 

Double buffer number (pointers 
are 2-byte values) 

Directory track 

set as track for job 

sector #0 

Set in for job 

Block read 

Create and set 

buffer number 

Return from this subroutine 


[DOOE/EF3A/F022/F119] 
Determine number of channels for BAM (in accumulator) 


F10F 
F111 


AQ 
Aé 
DO 


06 
TF 
03 


07 


LDA 
LDX 
BNE 
CLC 
ADC 
RTS 


#506 
STF 
SF118 


#507 


Get channel # for BAM channel 
by drive 1 as current drive# 
Drive 0? 

Yes, set flag for drive # 

and channel # for BAM 

Return from this subroutine 


[A4AD/C7B7/C883/C8F8] 
Determine number of channels for BAM (in X-register) 
20 OF Fl 


F119 
F11C 


AA 


JSR 
TAX 


SF10F 


Determine # of channels 
and save in X-register 
Return from this subroutinmme 


[D1A6/DD1D/E3A9/E3BC/E44E}] 
next free block in BAM 


Look for 
F11E 20 
F121 A9 
F123 85 
F125 AQ 
F127 OD 
F12A 8D 
F12D4 4c 


3E 


DE 


JSR 
LDA 
STA 


SDE3E 
#503 
S6F 
#501 


Get current track & sector # 
Set BAM 

pointer 

Set flag for"Illegal BAM, 
Write new BAM to 

diskette" 

Look for next free sector 
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[A8E5/F138:A8FD, A902] 
next free sector 


JSR 
PLA 


SFO11 


S6F 


(S6D),¥Y 


Get pointer again and 
set it 
# of sectors free on a track 


Still a free sector? 

NO—get current track # & com- 
pare with directory track #(18) 
Identical? 

No, current track # < 18? 

No, increment track # (diskette 
built in and around 18) 

& compare with max.# of tracks 
Highest track # reached? 

Yes, go back, label directory 
track -1 as 

current track # 

Clear sector 

counter 

Number of blocks free 

Still a free sector? 

No, display"72 DISK 

FULL" error message 
Track-by-track to outmost track 
Outermost track reached(0)? 
Yes, get directory track # and 
give one track more as 

current track # 

Clear sector 

pointer (0) 

Number of free sectors 

Still a free sector 

No, display "Disk full" 


ee we we ee we ae ee ee wn we es ew we we we we a ew ee eee eee 


next free sector 


Look for 

F130 20 11 FO 
F133 68 

F134 85 6F 
F136 Bl 6D 
[A8FD/A902] 
F138 DO 39 
F13A A5 80 
F13C CD 85 FE 
F13F FO 19 
F141 90 1C 
F143 E6 80 
F145 AS 80 
F147 CD AC 02 
F14A DO El 
Fl4C AE 85 FE 
Fl4F CA 

F150 86 80 
F152 A9 00 
F154 85 81 
F156 C6 6F 
F158 DO D3 
FI5A2 AQ 72 
F15C 20 C8 Cl 
Fi5F+ cé6 80 
F161 DO CA 
F163 AE 85 FE 
F166 £8 

F167 86 80 
F169 A9 00 
F16B 85 81 
F16D C6 6F 
F16F DO BC 
F171 FO E7 
[F138] 

Look for 

F173. A5 81 
F175 18 

F176 65 69 
F178 85 81 
F17A AS 80 
F17C 20 4B F2 
F17F 8D 4E 02 
F182 8D 4D 02 


LDA 
CLC 
ADC 
STA 
LDA 
JSR 
STA 
STA 


$81 


$69 
$81 
$80 
$F24B 
$024E 
$024D 


on this track 


Number of current sectors 

Adopt optimal sector set-up for 
two sectors and 

save as current sector number 
Number of current track 

Number of sectors comprising 

a track determined 

and noted 
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Compare with new sector # 
Number too high? 

Yes, get the # 

of the current sector 

& max. sector # transfer 

Note result as new sector # 
Has sector 0 been chosen? 
No,-~-correct sector variations 
Look for next free sector 

Got it? 

Yes, put sector in BAM 

Sector # 0 

set 

Look for next free sector 
Found it? 

No, display"71 Directory error" 


Lay out next optimum sector 


O1 
F9 
F9 
86 


Ol 
86 
85 


02 
02 


FE 


LDA 
ORA 
STA 
LDA 
PHA 
LDA 
STA 
LDA 
SEC 
SBC 


#$01 
SO2F9 
SO2F9 
$86 


#501 
$86 
SFE85 


$86 
$80 


Set flag for 
"ITllegal BAM" 
diskette) 
Zeropage addresses tobe used by 
routine & consequently reserved 
Initialize track 

number pointer 

Get directory track # 

Draw counter / current track to 
get track # above or below 
track 18 

Is track # les than 18 ? 

No, equal to 18 ? 

No, BAM pointer to sector bit 


(written on 


F185 C5 
F187 BO 
F189 38 
F18A AS 
F18C ED 
F18F 85 
F191 FO 
F193 C6 
F1952 20 
F198 FO 
F19A1 4c 
F1i9p1 ag 
FLOF 85 
F1Al 20 
F1A4 DO 
F1IA6 4C 
[DCDA] 

F1IAQ9 AQ 
F1AB OD 
FIAE 8D 
F1B1 AS 
F1B3 48 
F1B4 Ag 
F1B6 85 
F1B8- aD 
F1BB 38 
F1BC ES 
F1IBE 85 
F1CO 90 
F1C2 FO 
F1C4 4c 
[A90F] 

F1C7 Bl 
[A91B] 

Fic9+ po 
F1CB2 AD 
FICE 18 
FICF 65 
F1D1 85 
F1D3 E6 
F1D5 CD 


FE 


02 


Still some free sectors? 

No, get #of directory track 

& incrment track counter, so to 
receive a current track # 

above the directory track 
Counter for track #(next track) 
compared with highest track # 
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F1D8 90 05 BCC SF1DF Max track # reached? 

FIDA AQ 67 LDA #567 Yes, display "67 Illegal track 
FiIDC 20 45 E6 JSR SE645 or sector" error message 

FipF! 4c 12 AQ JMP SAQ91E - Look for next free 1571 sector 
[A928] 

F1E2 Bil 6D LDA (S$6D),Y Get # of free blocks in track 
[A934] 

Fiz41 Fo D2 BEQ $F1B8 Still a sector free? 

F1E6! 68 PLA Yes, zeropage address $86 

F1E7 85 86 STA $86 rearranged 

F1E9 <A9 00 LDA #$00 Clear sector 

F1EB 85 81 STA $81 counter 

FIED 20 FA Fl JSR SFI1FA and look for next free sector 
FIFO FO Q3 BEQ SFI1F5 Found? 

F1IF2 4C 90 EF JMP SEF90 Yes, place sector in BAM & jump 
FIF5* AQ 71 LDA #$71 diplay "71 DIR 

FIF7 20 45 E6 JSR SE645 error" message 


[CD09/CD27/F195/F1A1/F1ED)] 


FIFA 4C A9 A8 JMP SA8A9 Look for next free track sector 
[A8B3] 

Firp! 98 TYA Note pntr position bit patterns 
FIFE 48 PHA of blocks used 

FIFF 20 20 F2 JSR S$F220 Test # of blocks free 

F202 A5 80 LDA $80 Number of current track 

F204 20 4B F2 JSR $F220 Get # of sectors in 

F207 8D 4E 02 STA S$024E this track 

F20A 68 PLA Get bit pattern pointer in 

F20B 85 6F STA S6F BAM again 

F20D! a5 81 LDA $81 Compare # of current sector 
F20F CD 4E 02 CMP S$024E with total # of sectors 

F212 BO 09 BCS $F21D Sector # smaller? 

F214 20 D5 EF JSR SEFDS5 Yes,getbit for sector f/BAM 
F217 DO 06 BNE SF21F Is the sector free? 

F219 E6 81 INC $81 No,set pnter to next SECTOR 
F21B DO FO BNE $F20D Jump back to $F20D 

F21D+ a9 00 LDA #$00 Flag"No track sectors free" 
F21F! 60 RTS Return to main routine 
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[A93E/F1FF] 

Check number of free blocks in BAM for every track 

F220 AS 6F LDA S$6F Zeropage address S6F USED 

F222 48 PHA as temp. storage 

F223 AQ OO LDA #$00 Clear free-blocks 

F225 85 6F STA S6F Counter 

F227 AC 86 FE LDY SFE86 Get #of BAM bytes per track 
F22A 88 DEY & design #bytes per bit pattern 
F22B/ a2 07 LDX #$07 Counter/# of bits per byte 
F22D2 Bl 6D LDA ($6D),Y Get byte from BAM & isolate 
F22F 3D E9 EF AND SEFEQ,X Bit to which bit countr pts 
F232 FO 02 BEQ S$F236 Is the block laid out? 

F234 E6 6F INC S6F No, increment Free-block counter 
F236+ cA DEX & go to the next bit 

F237 10 F4 BPL $F22D All chosen bits tested? 

F239 88 DEY Yes,set ptr tonext BAMbyte 
F23A DO EF BNE S$F22B All BAM bytes on trak tested? 
F23C Bl 6D LDA (S$6D),Y Yes, compare #of blocks stated 
F23E CS 6F CMP S6F in BAM with resulting # 

F240 DO 04 BNE SF246 Identical? 

F242 68 PLA Yes, rearrange zeropage 

F243 85 6F STA S6F Address S6F 

F245 60 RTS Return to main routine 

F2461 ag 71 LDA #$71 Display 

F248 20 45 E6 JSR SE645 "71 DIR error" message 


[D540/D568/EED2/F17C/F204] 
Get number of sectors per track 
(Track number must be put into accumulator) 


F24B 20 4F A? JSR SA74F Get # of track zones 

F24E1 DD D6 FE CMP SFED6,X Compare max # tracks/zone with 
F251 CA DEX actual #of tracks;change zone 
F252 BO FA BCS SF24E Is track larger than max zone? 
F254 BD Dl FE LDA SFED1,X Yes,#of sectors in trackzone 
F257 60 RTS Return to main routine 
[CB12/CDA3/E7A8]} 

F258 60 RTS No function 

[BF6C] 

Execute disk controller reset 

F259 AQ 6F LDA #S6F "Sync" &"Write-protect" switched 
F25B 8D 02 1C STA $1C02 as input lines, and their 

F25E 29 FO AND #SFO values placed in 

F260 4C F8 AQ JMP SAQF8 patch 
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F263 AD 0C 1C LDA $1C0C Set peripheral control register 
F266 29 FE AND #SFE CAl "Byte ready" to neg. flank 
F268 09 OF ORA #S0E CA2 "SOE" to high input 

F26A 09 EO ORA #SEO CB2 (Head) set to read 

F26C 8D 0C 1C STA $1C0C Register activated 

F26F A9 41 LDA #$41 PB7(Sync)set to outputé active 
F271 8D OB 1C STA $1COB Input tempstorage forHEAD data 
F274 A9 OO LDA #$00 Set cnter for interrupt timerl 
F276 8D 06 1C STA $1C06 so the disk controller 

F279 AQ 20 LDA #$20 routine wilbe called for 8 MS, 
F27B 8D 07 1C #£=STA $1C07 & timer 1 

F27E 8D 05 1C STA $1C05 will start 

F281 <A9 7F LDA #S7F Clear 

F283 8D OE 1C STA S$1COE Interrupt flag 

F286 A9 CO LDA #SCO Interrrupt that allows 

F288 8D OD 1C STA $1COD Enable "Timer 1 has 

F28B 8D OE 1C STA S1COE run to zero" 

F28E AQ FF LDA #SFF Clear flags: 

F290 85 3E STA $3E flag for active drive 

F292 85 51 STA $51 Flag for"Format procedure" on 
F294 A9 08 LDA #$08 Set identifier 

F296 85 39 STA $39 Block header 

F298 A9 07 LDA #$07 Set identifier for 

F29A 85 47 STA $47 data block header 

F29C AQ O05 LDA #$05 Call in S$FA0O2 

F29E 85 62 STA $62 Turn to 

F2AO0 A9 FA LDA #SFA routine 

F2A2 85 63 STA $63 in $FAO5 

F2A4 A9 C8 LDA #$C8 Determine # of steps for 

F2A6 85 64 STA $64 fast head movement 

F2A8 AQ 04 LDA #504 Determine # of steps 

F2AA 85 5E STA SSE to move & stop 

F2AC AQ 04 LDA #$04 disk head 

F2AE 85 5F STA SSF movement 

[9DCA/9DD5/BF06] 

Jump to disk controller routine 

F2BO BA TSX Reserve 

F2B1l 86 49 STX $49 stack pointer 

F2B3 AD 04 1C LDA $1C04 Reset timer 

F2B6 AD 0C 1C LDA $1C0C CA2 (SOE=Serial Output Enable) 
F2B9 09 OE ORA #S0E set to high 

F2BB 8D 0C 1C STA $1C0C output 

F2BE AO O05 LDY #$05 Number of buffer 

F2c0/ B9 00 00 LDA $0000,Y Get flag for jobcode 

F2C3 10 2E BPL $F2F3 Is there a command for buffer? 
F2C5 c9 DO CMP #S$DO Yes,compare with"PROGRAMSTART" 
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F2C7 
F2C9 
F2CA 
F2cp1 
F2CF 
F2D1 
F2D3 
F2D5 
F2p8t 
F2D9 
F2DB 
F2DD 
F2DF 
F2E2 
F2E4 
F2E6 
F2E91 
F2EB 
F2ED 
F2EE 
F2Fo1 
F2F31 
F2P4 
F2F6 
Fr2Frgl 
F2FB 
F2FD 
F2FF 
F3011 
F304 
F306 
F308 
F30A 
F30C 
F30F 
F311 
F313 
F315 
F317 
F319 
F31B 
F31D 
F3201 
F322 
F324 
F326 
F328 


29 


20 


20 


06 


04 


70 
01 
07 
3F 
OF 
69 


3D 
3E 
OA 
7E 
3D 
3E 
9C 
20 
03 


09 
9C 


CA 
9C 
20 
20 
05 
3F 
93 
1A 
3F 
F7 
41 
95 
42 
4A 
4A 
60 
20 
32 
22 
9c 
O01 
3D 
E0 
22 
12 


F3 


F9 


F9 


F9 


FQ 


F9 


F3 


F3 


F9 


1571 Internals 


Program executed in buffer? 
Yes, get buffer # & 

jump to program 

Get drive # from jobcode 

Is the job for driveO ? 

No, note appropriate buffer 
Display "74 Drive not ready" 
error message 

Note drive 

number (0) & get 

"Drive active" flag 

Drive already running? 


No, motor on 
& set "Drive active" 
flag 


Wait until motor runs 

Get drive status 

Is motor at rotation speed? 
Yes,steppermotor flagbit/carry 
Is the head moving? 

Yes, move head into position 
Mark buffer # 

All buffer checked out? 

Yes, goto main control routine 
Flag for "Motor on" 

set as drive status 

Determine max # of buffers 

as actual buffer # 

Set pointer to buffer address 
Job assignment laid out? 
No,buffer cnter to next buffer 
Last buffer reached? 

YES-set last job # 

at buffer pointer 

Get track diff. to last job 

& set # to stepper half-steps 
to be executed 

Flag for head movement step 

in drive status 

Get & mark track # for job 
from buffer 

Position Head on track 

Design drive number 

& compare to last job drive 

Is the job for the same drive? 
Get track # of last job 

Track # on hand? 
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F32B Fl 32 
F32D FO OD 
F32F 49 FF 
F331 85 42 
F333 E6 42 
F335 AS 3F 
F337 85 41 
F339 4C 06 F3 
F33C2 A2 04 
F33E Bl 32 
F340 85 40 
F342! DD D6 FE 


F346 BO FA 
F348 BD Dl FE 
F34B 85 43 


F34D 8A 
F34E OA 
F34F OA 
F350 OA 
F351 OA 
F352 OA 


F355 AD 00 1C 


F35C 8D 00 1C 


[F369] VGL. 93A2 
Start program in buffer 


F36E AS 3F 


LDA 


($32),¥Y 


SF33C 
#SFF 
$42 
$42 
$3F 
$41 
SF306 
#$04 


($32),¥Y 


$40 


SFED6,X 


$F342 


SFED1,X 


$43 


$3F 


1571 Internals 


Yes,figure difference between 
current & last track 

Is the job for same track? 
Produce # / stepper increments 
& store 

number 

Transfer drive # of current 
job 

Work with next buffer 

Number of different trackzones 
Get track # of job 

& mark it 

Compare with highest zone track 
Set zone counter to next zone 
Track lie within zone? 

Yes,get # of sectors per zone 
& set 

zone numbers (0-3) 

will be in 

bits 5 & 6 

The bit exchange rate, 

which (with help of head 
electronics)writes to disk 
dictates value in temp memory 
Get drive control register 
Clear bits for bitrate & set 
zone chosen with the value 
used 

Drive # 

Get jobcode 

Compare with "Head to track 1" 
Should the head be reset? 

No, code for external job prg. 
Program taken into buffer? 

No, return to main routine 
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[F2CA] 

Start program (Buffer address in A) 

F370 18 CLC & compute the high 
F371 69 03 ADC #$03 byte of the absolute 
F373 85 31 STA $31 buffer address 

F375 AQ OO LDA #$00 Set low byte 

F377 85 30 STA $30 to null 

F379 6C 30 00 JMP ($0030) Jump to buffer program 


[F365] VGL. 93BO0 
Move head back to track 1 


F37C AY 60 LDA #$60 Set head flag for movement 
F37E 85 20 STA $20 in drive status 

F380 AD 00 1C LDA §$1C00 Get drive dontrol register 
F383 29 FC AND #S$FC & clear stepper 

F385 8D 00 1C STA $1C00 impulse 

F388 A9 A4 LDA #SA4 Number of steps (92) 

F38A 85 4A STA S4A Set to outside(= 46 tracks) 
F38C AQ 01 LDA #$01 Set track 1 

F38E 85 22 STA $22 as job track # 

F390 4C 69 F9 JMP SF969 Close job loop 


([BFOC/F301/F43A/F48F] VGL. 93D1 
Initialize buffer pointer for job 


F393 A4 3F. LDY $3F Number of current buffer 
[F30C] 

Set buffer pointer (Buffer number in Y) 

F395 B9 00 00 LDA $0000,Y Get appropriate jocode 

F398 48 PHA & note 

F399 10 10 BPL SF3AB Job on hand? 

F39B 29 78 AND #$78 Yes, isolate and mark command 
F39D 85 45 STA $45 Bits for disk controller 
F39F 98 TYA Get buffer # 

F3A0 OA ASL A & double (2-byte value) 

F3A1l 69 06 ADC #506 Compute track & sector table 
F3A3 85 32 STA $32 & set pointers 

F3A5 98 TYA Get buffer # again, & 

F3A6 18 CLC calculate the physical 

F3A7 69 03 ADC #$03 memory address of the 

F3A9 85 31 STA $31 buffer (high-byte) & set 
F3ABl ao 00 LDY #800 low byte of the pointer 

F3AD 84 30 STY $30 to null 

F3AF 68 PLA Get jobcode 

F3BO 60 RTS Return to main routine 
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[F36B/F5E6] 

Look for track. 
(Routine will place 
F3B1 A2 5A LDX 
F3B3 86 4B STX 
F3B5 A2 00 LDX 
F3B7 AQ 52 LDA 
F3B9 85 24 STA 
F3BB! 20 56 F5 JSR 
F3BE! 50 FE BVC 
F3CO B8 CLV 
F3C1 AD 01 1C LDA 
F3C4 C5 24 CMP 
F3C6 DO 3F BNE 
F3C82 50 FE BVC 
F3CA B8 CLV 
F3CB AD 011C LDA 
F3CE 95 25 STA 
F3D0 &E8 INX 
F3D1 EO 07 CPX 
F3D3 DO F3 BNE 
F3D5 20 97 F4 JSR 
F3D8 AO 04 LDY 
F3DA A9 00 LDA 
F3pc/ 59 16 00 EOR 
F3DF 88 DEY 
F3EO 10 FA BPL 
F3E2 C9 00 CMP 
F3E4 DO 38 BNE 
F3E6 A6 3E LDX 
F3E8 A5 18 LDA 
F3EA 95 22 STA 
F3EC A5 45 LDA 
F3EE C9 30 CMP 
F3FO FO 1E BEQ 
F3F2 A5 3E LDA 
F3F4 OA ASL 
F3F5 A8 TAY 
F3F6 B912 00 LDA 
F3F9 C5 16 CMP 
F3FB DO 1E BNE 
F3FD B9 13 00 LDA 
F400 C5 17 CMP 
F402 DO 17 BNE 
F404 4C 23 F4 JMP 
F4071 C6 4B DEC 
F409 DO BO BNE 


information on every block header on diskette). 


#S5A 
$4B 
#$00 
#$52 
$24 
SF556 
SF3BE 


$1001 
$24 

SF407 
SF3C8 


$1001 
$25,X 


#$07 
SF3C8 
$F497 
#504 
#$00 


$0016,Y 


SF3DC 
#$00 
SF41E 
$3E 
$18 
$22,X 
$45 
#$30 
SF410 
$3E 

A 


$0012,Y 


$16 
SF41B 


$0013,Y 


$17 
SF41B 
$F423 
$4B 
SF3BB 


No. of read searches (90) 
determined 

Clear # of header bytes 

Save GCR identifier for 

block header 

Wait for synch-marker 

Read electronics ready? 

Yes, set flag back 

Read header from disk—compare 
with block identifier 

Is ther a blockheader? 

Yes, wait for next byte 
Reactivate reading electronics 
Read byte from diskette 

& store in header buffer 
Increment counter 

Compare with # of headerbytes 
Entire header read? 
Yes-—convert header fr GCR to % 
Set pnter to checksum position 
Compute header 

checksum 

Pointer to next header byte 
All bytes computed? 

YES—value for erroe-free header 
Checksum error occurred? 
NO—get current drive number 
TRack number of header to be read 
saved as current track 

get jobcode 

Conmpare with"Read Sector" 
Identical? 

NO-get drive number of job 
Turn pointer to drive with 
corresponding ID 

Get lst char of ID and compare 
with blockheader ID 

ID been changed? 

NO-—get next ID char and compare 
with header ID 

Identical? 

YES—determine next job 
Decrement read-search counter 
90 read searches executed 
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F40B A9 02 LDA #$02 Display error message 

F40D 20 69 F9 JSR SF969 "20 Read error" 

F410? a5 16 LDA $16 Take on blockheader ID 
F412 85 12 STA $12 as new ID for 

F414 AS 17 LDA $17 current 

F416 85 13 STA $13 disk drive 

F4182 AQ O1 LDA #$01 Number for "OK" 

F41A 2C ~-BYTE $2C Two-byte jump (bit command) 
F41B* AQ OB LDA #S0B # for"29 Disk ID mismatch" 
F41D 2C ~-BYTE $2C Two-byte jump (bit command) 
F41E1 a9 09 LDA #$09 Number for "27 Write error" 
F420 4C 69 F9 JMP SF969 message returned 


[F404] VGL. 94BC 
Get next optimum job 


F423 AQ 7F LDA #S7F Intitialize pntr for difference 
F425 85 4C STA $4C to next job 

F427 A5 19 LDA $19 Get sector # from last blkheader 
F429 18 CLC and compare with 

F42A 69 02 ADC #$02 maximum 

F42C C5 43 CMP $43 sector number 

F42E 90 02 BCC S$F432 Is number in allowed range? 

F430 ES 43 SBC $43 NO—subtract max. sector number & 
F432! 85 4D STA $4D save new sector number 

F434 A2 05 LDX #$05 Set buffer 

F436 86 3F STX $3F number 

F438 A2 FF LDX #SFF buffer pointer 

F43a! 20 93 F3 JSR $F393 Set buffer address & get jobcode 
F43D 10 44 BPL SF483 Job available? 

F43F 85 44 STA $44 YES-—Save jobcode and determine 
F441 29 01 AND #S$01 Drive number of the job 

F443 C5 3E CMP $3E Comparable with actual drive? 
F445 DO 3c BNE SF483 Is the job for current drive? 
F447 AO OO LDY #S$00 YES—clear buffer pointer 

F449 Bl 32 LDA ($32),Y Compare track number of the job 
F44B C5 40 CMP $40 with last track 

F44D DO 34 BNE SF483 Identical? 

F44F AS 45 LDA $45 YES—get jobcode command bits 
F451 C9 60 CMP #$60 Code for "Program in buffer" 
F453 FO 0C BEQ SF461 SHould buffer program be run? 
F455 AO 01 LDY #$01 NO—pointer to params for buffer 0 
F457 38 SEC Get sector number of job 

F458 Bl 32 LDA ($32),Y for buffer O and compare 

F45A E5 4D SBC $4D wirth optimum sectors computed 
F45C 10 03 BPL SF461 Is new sector number less? 

F45E 18 CLC NO—calculate # of sectors up to 
F45F 65 43 ADC $43 this sector and compare 
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F4612 C5 4c CMP 
F463 BO 1E BCS 
F465 48 PHA 
F466 AS 45 LDA 
F468 FO 14 BEQ 
F46A 68 PLA 
F46B C9 09 CMP 
F46D 90 14 BCC 
F46F C9 0C CMP 
F471 BO 10 BCS 
F4731 85 4c STA 
F475 AS 3F LDA 
F477 AA TAX 
F478 69 03 ADC 
F47A 85 31 STA 
F47C DO 05 BNE 
F47E1 68 PLA 
F47F C9 06 CMP 
F481 90 FO BCC 
F483! C6 3F DEC 
F485 10 B3 BPL 
F487 8A TXA 
F488 10 03 BPL 
F48A 4C 9C FQ UMP 
F48p! 86 3F STX 
F48F 20 93 F3 JSR 
F492 AS 45 LDA 


with last difference 

Is new value less than last? 
YES—Save sector difference 
Check command bits of jobcode 
Should sector be read? 

NO-—get difference again and 
Compare to 9 

Is value less? 

NO—compare to 13 

Is difference <13 ? 

YES—Save new sector difference 
Get buffer number of the job and 
compute 

the physical memory 

address (high-byte) 

Jump to S$F483 

Get sector difference and 
compare to 6 

Is difference larger? 

YES—turn pointer to next pointer 
All buffers tested yet? 
YES—get buffer # of next job 
Optimum job found? 

NO—execute stepper command 
Save buffer number 

Compute buffer address 

Get clear jobcode 

Execute read/write jobs 


[F3D5] 

Convert header from 
F497 AS 30 LDA 
F499 48 PHA 
F49A AS 31 LDA 
F49C 48 PHA 
F49D AQ 24 LDA 
F49F 85 30 STA 
F4A1 A9 00 LDA 
F4A3 85 31 STA 
F4A5 A9 O00 LDA 
F4A7 85 34 STA 
F4A9 20 E6 F7 JSR 
F4A7 AS 55 LDA 
F4AE 85 18 STA 
F4B0O AS 54 LDA 
F4B2 85 19 STA 


GCR-code into binary values 


$30 


$31 


#524 
$30 
#500 
$31 
#500 
$34 
SF7E6 
$55 
$18 
$54 
$19 


Retrieve 

pointer to 

current 

buffer address 

Adjust pointer at 

$0024 (start of data for 
last-read 

blockheaders) 

Reset buffer pointer for 
conversion routine 

Convert 5 GCR bytes to 4binary#S 
4th byte converted to 

track number in header buffer 
Third byte is 

sector number in header buffer 
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Second byte is 

checksum in header buffer 
Convrt 5 GCRbytes to 4 binary #'s 
First byte 

is 2nd ID char in header buffer 
Second byte is 

first ID char in header buffer 
Re-create pointer 

to address of 

current 

buffer 

Return from this subroutine 


[F494] 


Read 


Compare jobcode with readcode 
Identical? 
NO-test jobcode further 


Read 
F4p1+ 
F4D42 
F4D6 
F4D7 
F4DA 
F4DC 
F4pp1 
F4DF 
F4E11 
F4E3 
F4E4 
F4E7 
F4EA 
F4EB 
F4ED 
F4FO 
F4F2 
F4F4 
F4F6 
F4F8 
F4FBl 
F4FE 
F500 
F502 
F504 
F505 
F507 


AS 53 LDA $53 
85 1A STA S1A 
20 E6 F7 JSR SF7E6 
A5 52 LDA $52 
85 17 STA $17 
A5 53 LDA $53 
85 16 STA $16 
68 PLA 

85 31 STA $31 
68 PLA 

85 30 STA $30 
60 RTS 

VGL. 9606 

sector from diskette to buffer 
c9 00 CMP #S$00 
FO 03 BEO $F4D1 
4C 6E F5 JMP SFS5S6E 
sector 

20 OA F5 JSR SFS50A 
50 FE BVC SF4D4 
B8 CLV 

AD 01 1C LDA $1C01 
91 30 STA ($30),Y 
C8 INY 

DO FS BNE SF4D4 
AO BA LDY #SBA 
50 FE BVC SF4E1 
B8 CLV 

AD 01 1C LDA $1C01 
99 00 01 STA $0100,Y 
C8 INY 

DO F4 BNE SF4E1 
20 EO F8 JSR SF8EO 
A5 38 LDA $38 
C5 47 CMP $47 
FO 05 BEQ SF4FB 
AQ 04 LDA #$04 
4C 69 F9 JMP SF969 
20 E9 F5 JSR SF5E9 
C5 3A CMP $3A 
FO 03 BEQ S$F505 
AQ 05 LDA #S$05 
2C ~BYTE $2C 
A9 O1 LDA $01 
4C 69 F9 JMP SF969 


Ssearch for sector blockheader 
Wait for byte from disk 

Read electronics ready to 

read byte with dish head 

and write to current buffer 

Set buffer pointer to next byte 
Buffer already full? 

YES—set buff pntr to cond'l buff 
Wait for next byte from disk 

Get flag to signal byte 

from read head 

& write to conditional buffer 
Set buffer pointer to next byte 
Conditional buffer full? 
YES—convert sector frm GCR»binary 
Get lst byte of data block & 
identifier for data blockheader 
Data block ? 

NO—display error message: 

"22 Read error" 

Compare checksum computed for 
data with value read in 
Identical? 

Error # for"23 read error" 

Jump to next 2 bytes(Bir Command) 
Error number for "OK" 

message given 
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[F4D1/F6A0] 
Set read-head into position after data block sync-marking a sector 


F50A 20 10 F5 
4C 56 FS 


FS0OD 


CF. 


9600 


JSR 
JMP 


SF510 
SF556 


Search for a sector blockheader 
Wait f/sync-mark of a data block 


[FSOA/F589/F6CA] VGL. 


Look for sector header 


F510 
F512 
F513 
F514 
F516 
F518 
F51A 
F51C 
F51E 
F520 
F522 
F523 
F525 
F527 
F529 
F52B 
F52D 
F52F 
F531 
F533 
F536 
F5381 
F53B 
F53D2 
F53F 
F540 
F543 
F546 
F548 
F549 
F54B 
F54D 
F54E2 


AS 3D 
OA 


BS 12 
85 16 
B5 13 
85 17 
AO 00 
Bl 32 
85 18 


Bl 32 
85 19 
A9 00 
45 16 
45 17 
45 18 
45 19 
85 1A 
20 34 
A2 5A 
20 56 
AO 00 
50 FE 


AD 01 
D9 24 
DO 06 


CO 08 


DO FO 


DO E7 
A9 02 


4C 69 F9 


F9 


FS 


1c 
00 


LDA 
ASL 
TAX 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
INY 
LDA 
STA 
LDA 
EOR 
EOR 
EOR 
EOR 
STA 
JSR 
LDX 
JSR 
LDY 
BVC 
CLV 
LDA 
CMP 
BNE 
INY 
CPY 
BNE 
RTS 
DEX 
BNE 
LDA 
JMP 


$3D 
A 


$12,X 
$16 
$13,X 
$17 
#500 


($32),Y 


518 


($32),¥Y 


$19 
#500 
$16 
$17 
$18 
$19 
S1A 
SF934 
#S5A 
SF556 
#$00 
SF53D 


$1001 


$0024,Y 


SF5S4E 


#508 
SF53D 


970F 


Get drive number of job 

and corresponding 

ID 

First ID character 

transferred to jheader buffer 
Second ID character 
transferred to header buffer 
Clear buffer pointer 

Get track # frm current buffr ¢& 
transfer to jheader buffer 


Set buffer pointer to next char 


Get sector # from curr. buffr 

& transfer to header buffer 
Calculate checksum of 

sector header made 

available 

and write 

to 

header buffer 

Convrt sector header to GCRbytes 
Number of read searches (90) 
Wait for next sync-marking 
Clear buffer pointer 

Wait for next byte from disk 
Get flag again for 

byte from read head 

& compare with available header 
Values identical? 

YES—set buffer pntr to next char 
Compare with # of header bytes 
Entire header tested? 

Return from this subroutine 
Decrement read search counter 
Any more read searches? 

Display error message: 

"20 Read error" 
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ere 


[BF1E/F3BB/F50D/F538/FB1D/FD39/FD62] CF. 


9754 


Set timer to about 53 MS and 


start 

Number for "21 Read error" 
Get condition of timer 

Is timer running? 

Get condition of sync-flag 
Has sync-mark been found? 
YES-intialize head 

Read electronic readied again 
Set processor flags 

Return from this subroutine 


(Command bit $10) 


Compare with 'write' jobcode 
Identical? 
NO—Jobcode search continues 


Wait for next sync-mark 
F556 AQ DO LDA #$D0 
F558 8D 05 18 STA $1805 
F55B AQ 03 LDA #$03 
F55D- 2c 05 18 BIT $1805 
F560 10 Fl BPL $F553 
F562 2c 00 1C BIT $1C00 
F565 30 F6 BMI $F55D 
F567 AD 011C LDA $1C01 
F56A B8 CLV 

F56B AO 00 LDY #$00 
F56D 60 RTS 

[F4CE] cf. 976E 

Write sector when jobcode $390 
F56E C9 10 CMP #$10 
F570 FO 03 BEQ $F575 
F572 4C 91 F6 £JMP S$F691 
Write sector 

F575 20 E9 F5 JSR $F5E9 
F578 85 3A STA $3A 
F57A AD 00 1C }#£4LDA $1C00 
FS7D 29 10 AND #$10 
F57F DO 05 BNE S$F586 
F581 A9 O08 LDA #$08 
F583 4C 69 F9 £4JMP S$F969 
F586! 20 8F F?7 JSR $F78F 
F589 2010F5 #£=™}JSR $F510 
F58C A2 09 LDX #$09 
F58E* 50 FE BVC $F58E 
F590 B8 CLV 

F591 CA DEX 

F592 DO FA BNE $F58E 
F594 AQ FF LDA #SFF 
F596 8D 03 1C  #£42STA $1C03 
F599 AD OC 1C LDA $1C0C 
F59C 29 1F AND #$1F 
F59E 09 CO ORA #SCO 
F5A0 8D 0C 1C_ STA $1C0C 
F5A3 AQ FF LDA #SFF 
F5A5 A2 05 LDX #505 
F5A7 8D 011C  #£2STA $1C01 
F5AA_ B8 CLV 

F5AB2 50 FE BVC $F5AB 
FSAD B8 CLV 


Compute buffer checksum 

and save it 

drive control register 

Get 'Write Protect’ bit flag 

Is there a write protect? 
YES-Display error message: 

'26 Write Protect On' 

Convert buffer to GCR-Code 
Search block header of sector 
Number of bytes on header 

Byte read from diskette? 
YES—Byte Ready set up 

Read over next byte 

Entire block header jumped over? 
YES-—Switch register for head 
to output 

Get drive control register 
Place controller circuitry 
on write mode and 

set in register 
Sync-marking value 

Number of sync-bytes for 
Transfer byte to head 
Prepare Byte Ready flag 
Wait until byte is written 
Prepare Byte Ready flag 


marking 
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F5AE 
F5AP 
F5B1 
-F5B31 
F5B62 
F5B8 
F5B9 
F5BC 
F5BD 
F5BFL 
F5c11 
F5C3 
F5C4 
F5C7 
F5C8 
F5cA1 
F5CC 
F5CF 
F5D1 
F5D4 
F5D6 
F5D9 
F5DC 


CA 
DO 
AO 


FA 
BB 
00 
FE 


01 


F4 
30 
FE 


01 


F5 
FE 
OC 
EO 
OC 
00 
03 
F2 
3F 


O1 


1c 


1C¢ 


SFSAB 
#SBB 


$0100,Y 


SF5B6 


$1C01 


SF5B3 


($30),Y 


SF5C1 


$1C01 


SF5BF 
SF5CA 
$1C0C 
#SE0 
$1C0C 
#500 
$1C03 
SF5F2 
$3F 


$0000,Y 


#530 


$0000,Y 


SF3B1 


1571 Internals 


Counter for number of sync-bytes 
All sync-bytes on diskette? 
YES—Buffr pointr to status buffer 
Get byte from buffer 

Wait til write circuitry is ready 
Flag reset 

Write byte to diskette 

Pointer to next char in buffer 
Entire buffer written? 

YES-—Get byte from file buffer 
Wait until diskette is ready 

Flag reset and 

write byte to diskette 

Pointer to next byte in buffer 
Entire buffer written up? 
YES-Wait til last byte is 
completely written and then 
switch controller circuitry 

to read 

Switch read head register 

to input 

Convert buffer from GCR to binary 
Current buffer number 

Get jobcode for it and 

establish jobcode 

for 'Verify' 

Check execution 


[96FD/9775/989E/9C1B/BF2A/F4FB/F575/F698/FCA2 ] 
Calculate buffer checksum 


LDA 
TAY 


EOR ($30),Y 


INY 
BNE 
RTS 


#500 


SF5SEC 


Clear checksum value and 

pointer to buffer position 
Compute byte from buffer checksum 
Set pointer to next byte 

Entire buffer calculated? 
YES—Return from subroutine 


97F9 
and status buffer converted from GCR to binary 


F5E9 AQ 00 
F5EB AS 

F5Ec! 51 30 
F5EE C8 

F5EF DO FB 
F5F1 60 

[F5D9/F972] 
Data buffer 
F5F2 A9 00 
F5F4 85 2E 
F5F6 85 30 
F5F8 85 4F 
F5FA AS 31 
F5FC 85 4E 
F5FE AQ Ol 
F600 85 31 


vgl. 


LDA 
STA 
STA 
STA 
LDA 
STA 
LDA 
STA 


#$00 
$2E 
$30 
S4F 
$31 
S4E 
#501 
$31 


Initialize low-byte of pointer 
forthe current data buffer and 
status buffer 

Retain momentary value of pointer 
to current data buffer 

in S4E/S4F 

Set buffer pointer 

of $S1BB 
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F602 85 2F STA $2F High-byte of status buffer 

F604 A9 BB LDA #$BB Turn buffr pointer for conversion 
F606 85 34 STA $34 to start of status buffer 

F608 85 36 STA $36 Set pntr to curr binary byte pos. 
F6O0OA 20 E6 F/7 JSR SF7E6 Convert 5 GCRbytes to 4binary #'s 
F60D AS 52 LDA $52 Get lst converted byte & save as 
F60F 85 38 STA $38 identifier for data blockheader 
F611 A4 36 LDY $36 Get buffer pointer 

F613 AS 53 LDA $53 Get 2nd byte to be converted and 
F615 91 2E STA (S2E),Y write to temporary buffer 

F617 C8 INY Set buffer pointer to next byte 
F618 A5 54 LDA $54 Get 3rd converted byte 

F61A 91 2E STA (S2E),Y and write to temporary buffer 
F61C C8 INY Pointer to next byte 

F61D A5 55 LDA $55 Get last converted byte and 

F61F 91 2E STA (S$2E),Y store in temporary buffer 

F621 C8 INY Pointr to next position in buffer 
F622 84 36 STY $36 --mark it 

F624! 20 E6 FT JSR SF7E6 Convert next 5 GCR-bytes 

F627 A4 36 LDY $36 Get buffer pointer 

F629 A5 52 LDA $52 Get 1st converted byte and 

F62B 91 2E STA (S$2E),Y write to temporary buffer 

F62D C8 INY Set pointer to next byte 

F62E AS 53 LDA $53 Get 2nd converted byte 

F630 91 2E STA (S2E),Y and write to temporary buffer 
F632 C8 INY Set pointer to next byte 

F633 FO OE BEQ S$F643 All temp. buffer bytes gotten? 
F635 AS 54 LDA $54 NO-Get 3rd converted byte and 
F637 91 2E STA (S$2E),Y write to temp. buffer 

F639 C8 INY Buffer pointer on next byte pos. 
F63A AS 55 LDA $55 Get 4th converted byte and 

F63C 91 2E STA ($2E),Y write to temp. buffer 

F63E C8 INY Pointer to next byte in buffer 
F63F 84 36 STY $36 and save it 

F641 DO El BNE SF624 Last byte from temporary buffer? 
P6431 AS 54 LDA $54 YES-Get 3rd converted byte 

F645 91 30 STA ($30),Y and write to data buffer 

F647 C8 INY Set buffer pointer to next byte 
F648 A5 55 LDA $55 Get last converted byte and 

F64A 91 30 STA ($30),Y write to data buffer 

F64C C8 INY Set buffer pointer to next char 
F64D 84 36 STY $36 and save it 

F64F! 20 E6 F7 JSR SF7E6 Next 5 GCR-bytes into binary 
F652 A4 36 LDY $36 Get buffer pointer 

F654 A5 52 LDA $52 Get lst converted byte and 

F656 91 30 STA ($30),Y write to data buffer 

F658 C8 INY Set buffer pointer to next byte 
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F659 A5 53 LDA $53 Get 2nd converted byte 

F65B 91 30 STA ($30),Y Write to data buffer 

F65D C8 INY Correct buffer pointer 

F65E AS 54 LDA $54 Get 3rd converted byte 

F660 91 30 STA ($30),Y Write in data buffer 

F662 C8 INY Pointer to next byte in buffer 
F663 AS 55 LDA $55 Get last converted byte 

F665 91 30 STA ($30),Y Write in data buffer 

F667 C8 INY Set buffer pointer to next byte 
F668 84 36 STY $36 and save it 

F66A CO BB CPY #SBB Compar buffr pointer w/end value 
F66C 90 El BCC SF64F All bytes converted into binary? 
F66E A9 45 LDA #5845 YES—Pointer set to 

F670 85 2E STA $2E destination address 

F672 AS 31 LDA $31 of shift operations 

F674 85 2F STA $2F to follow 

F676 AO BA LDY #SBA Buffr pointr to begin/data buffer 
F678! B1 30 LDA ($30),Y Get byte frm lowst part of buffer 
F67A 91 2E STA (S$2E),Y shift to uppermost part 

F67C 88 DEY Pointer to next character 

F67D DO F9 BNE SF678 Entire lower section copied? 

F67F Bl 30 LDA ($30),Y Copy lowest byte 

F681 91 2E STA (S2E),Y into highest part 

F683! A2 BB LDX #S$BB Set buffr pointer to status buffr 
F685! BD 00 01 + LDA $0100,X Get byte frm status buffer and 
F688 91 30 STA ($30),Y put in lowest free data buffer 
F68A C8 INY Increment status buffer pointer & 
F68B E8 INX increment data buffer pointeer 
F68C DO F7 BNE SF685 Entire stats buffr in data buffr? 
F68E 86 50 STX $50 YES-Clr'Buffer in GCR-Code' flag 
F690 60 RTS Return from subroutine 

[F572] cf. 9898 

Compare sector from diskette w/ buffer contents, when jobcode $A0 
F691 C9 20 CMP #$20 Compare jobcode w/ 'Verify' code 
F693 FO 03 BEQ SF698 Identical? 

F695 4C CA F6 JMP SF6CA NO—Decode jobcode further 

Sector verify 

F698! 20 £9 FS5 JSR SFSE9 Compute data buffer checksum 
F69B 85 3A STA $3A and save it 

F69D 20 8F F7 JSR SF78F Convert buffer to GCR-code 

F6AO0 20 OA FS5 JSR SF50A Set head to sector start on disk 
F6A3 AO BB LDY #SBB Buffr pointr to start/stats buffr 
F6A5! B9 00 01 LDA $0100,Y Get byte from status buffer 
F6A8! 50 FE BVC SF6A8 Wait til byte from disk is ready 
F6AA_ B8 CLV Get flag ready again 
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pe 


01 1C 
ES 


F2 
30 
FE 


01 1C 
08 


FD 
FIL 


$1001 
SF6C5 


SF6A5 


($30),Y 


SF6B5 


$1C01 
SF6C5 


#5FD 


Get byte from head and compare 
Byte from buffer & disk equal? 
YES—Pointer to next buffer byte 
Entire status buffer compared? 
YES—Get byte from data buffer 
Wait until byte is read from disk 
and get head ready again 

Get byte from head abd compare 
Byte from disk and buffer equal? 
YES-Buffer pointer to next char 
Compare with end value of buffer 
All bytes compared? 

Verify if successful 

Display error message -- 

'25 Write Error' 


[F695] 


Gr. 


98CE 


Look for sector header (jobcode $B0) 
F6CA 20 10 F5 


4C 


18 F4 


JSR 
JMP 


$F510 
SF418 


Look for sector header 
Prepare return message 


[F7E3/FE64/F7BC/F950/F961/FE5E] 
Convert 4 Binary bytes into 5 GCR-bytes. 
as buffer for the binary values 


F6D0 
F6D2 
F6D4 
F6D6 
F6D8 
FODA 
F6DC 
FeDD 
Fé6DE 
Fé6DF 
F6EO 
F6E1 
F6E4 
F6E5 
F6E6 
F6E7 
FOES 
FOEB 
F6ED 
FO6EE 


AQ 
85 
85 
A4 
A5 
29 


00 
57 
SA 
34 
52 
FO 


TF FT 


56 
52 
OF 


TF FT 


LDA 
STA 
STA 
LDY 
LDA 
AND 
LSR 
LSR 
LSR 
LSR 
TAX 
LDA 
ASL 
ASL 
ASL 
STA 
LDA 
AND 
TAX 
LDA 


#$00 
$57 
SSA 
$34 
$52 
#SF0 
A 


A 
A 
A 


SFT77F,X 


A 

A 

A 
$56 
$52 
#SOF 


SF77F,X 


$52-$55 will be used 


Clear temporary 

memory storage for 

GCR-bytes 

Pointer to current GCR-byte 

Get first character 

to be converted from 

binary buffer; 

isolate most significant part of 
byte (bits 4-7) and copy to least 
significant part 

then get the halfbytes of the 
corresponding 5-bit-GCR-code 
Copy the 5 bits into the 

higher part 

and save parts of 

bytes (bits 3-7) 

Get first byte to be converted & 
isolate lowest part; 

Then pass it to half-byte 

Get 5-bit-GCR code 
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F6F1 6A ROR A Two lowest bits,when there is no 
F6F2 66 57 ROR $57 more room if lst byte(8 bits turn 
F6F4 6A ROR A to 10 bits)—bring them into the 
F6F5 66 57 ROR $57 second GCR-byte 

F6F7 29 07 AND #S$07 Combine the 3 remaining bits into 
F6F9 05 56 ORA $56 the first GCR-byte 

F6FB 91 30. STA ($30),Y and write GCR-byte to buffer 

F6FD C8 INY Buffer pointer to next character 
F6FE AS5 53 LDA $53 Get second byte for conversion 
F700 29 FO AND #SFO Get lst part to be converted 

F702 4A LSR A & move to least significant 

F703 4A LSR A half-byte 

F704 4A LSR A Equivalent binary byte to 

F705 4A LSR A be used for pointer 

F706 AA TAX Get corresponding 

F707 BD 7F F7 LDA SF77F,X 5-bit-GCR-code and 

F7O0A OA ASL A Set in 2nd GCR-byte 

F70B 05 57 ORA $57 in bit positions 1-5 

F70D 85 57 STA $57 -- 

F70F AS 53 LDA $53 Get 3rd byte to be converted and 
F711 29 OF AND #SOF isolate least significant part, 
F713 AA TAX then get corresponding 

F714 BD 7F F7- LDA SF77F,X 5-bit GCR-byte 

F717 2A ROL A Set GCR-byte 

F718 2A ROL A in bit positions 4-7 

F719 2A ROL A of the 3rd GCR-byte 

F71A 2A ROL A and 

F71B 85 58 STA $58 save 

F71D 2A ROL A Transfer last GCR-bit 

F71E 29 01 AND #$01 to next 

F720 O5 57 ORA $57 GCR-byte 

F722 91 30 STA ($30),Y Write GCR-byte to buffer 

F724 C8 INY Set buffer pointer to next byte 
F725 AS 54 LDA $54 Get 3rd bin. byte to be converted 
F727 29 FO AND #SFO and isolate most significant 

F729 4A LSR A parts (bits 4-7) 

F72A 4A LSR A Shift half-byte(least sig.) and 
F72B 4A LSR A Set up pointer for equivalent 
F72C 4A LSR A binary bytes, and 

F72D AA TAX half-byte as corresponding 

F72E BD 7F F7 LDA SF77F,X 5-bit GCR code 

F731 18 CLE byte shifted 1 place to the right, 
F732 6A ROR A and a null bit inserted 

F733 O05 58 ORA $58 GCR-value w/previous combinations 
F735 91 30 STA ($30),Y Write GCR-byte to buffer and 

F737 C8 INY increment buffer pointer 

F738 6A ROR A Get previously-moved bit 0O and 
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F739 29 80 AND #S$80 take up next 

F73B 85 59 STA $59 GCR-byte 

F73D AS 54 LDA $54 Set least sig. part (bit 0-3) 
F73F 29 OF AND #SOF of 3rd byte to be converted 

F741 AA TAX and determine the 5-bit GCR 

F742 BD 7F F7 LDA SF77F,X code to be adapted 

F745 OA ASL A Set GCR-value in positions 

F746 OA ASL A 2-6 and Save as 2nd part 

F747 29 7C AND #$7C of the 4th 

F749 05 59 ORA $59 GCR-byte 

F74B 85 59 STA $59 Save GCR-byte 

F74D AS 55 LDA $55 Get 4th bin. byte to be converted 
F74F 29 FO AND #SFO and isolate most significant part 
F751 4A LSR A (4-7) 

F752 4A LSR A Half-byte in least sig. bytehalves 
F753 4A LSR A shifted so that bytes can serve as 
F754 4A LSR A pointers for the GCR-values 

F755 AA TAX then get the binary byte's 

F756 BD 7F F7 LDA SF77F,X corresponding 5-bit-GCR-code 

F759 6A ROR A First 3 bits of 

F75A 66 5A ROR SSA GCR-value (position 0-2) 

F75C 6A ROR A transferred to positions 

F75D 66 5A ROR $5A 5-7 of the last 

F75F 6A ROR A GCR-value 

F760 66 5A ROR SSA Carry the 

F762 29 03 AND #$03 remaining 2 bits 

F764 05 59 ORA $59 Combine with preceding GCR-value 
F766 91 30 STA ($30),Y and write to buffer 

F768 C8 INY Set buffer pointer to next byte 
F769 DO 04 BNE SF76F End of buffer reached? 

F76B AS 2F LDA $2F YES—Set pointer to data buffer 
F76D 85 31 STA $31 again 

F76F AS 55 LDA $55 Get last half-byte from last 

F771 29 OF AND #SOF binary byte, and 

F773 AA TAX save it 

F774 BD 7F F7 LDA SF77F,X% Establish GCR-value, and 

F777 O5S 5A ORA S$5A combine with last GCR byte 

F779 91 30 STA ($30),Y Write byte to buffer 

F77B C8 INY Set buffer pointer to next byte & 
F77C 84 34 STY $34 save it 

F77E 60 RTS Return from this subroutine 


[F6E1/F6EE/F707/F714/F72E/F742/F756/F774] 
F77F OA OB 12 13 OE OF 16 17 This table of 16 half-bytes 
F787 O09 19 1A 1B OD 1D 1E 15 correspond to 5-bit-GCR-bytes 
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[9706/9BA3/9C20/F586/F69D/FCA7] 
Buffer contents converted from binary to GCR-bytes 


F78F A9 00 LDA #$00 Lo-bytes of pmtrs set to null: 
F791 85 30 STA $30 pointer to current GCR-buffer 

F793 85 2E STA $2E pointer to current binary buffer 
F795 85 36 STA $36 pointer to current buffer position 
F797 AQ BB LDA #SBB Lo-byte for pointer set on 

F799 85 34 STA $34 conditional buffer 

F79B 85 50 STA $50 Flag for “buffer in GCR-code" 

F79D AS 31 LDA $31 Set pointer for current data 

F79F 85 2F STA $2F buffer 

F7A1l AQ O1 LDA #$01 Turn pointer to conditional buffer 
F7A3 85 31 STA $31 (high byte) 

F7A5S AS 47 LDA $47 Identifier for data block 

F7A7 85 52 STA $52 set as first char to be converted 
F7A9 A4 36 LDY $36 Get buffer pointer 

F7AB Bl 2E LDA (S2E),Y Get data byte from buffer and save 
F7AD 85 53 STA $53 as lst char to be converted 

F7AF C8 INY Increment buffer pointer 

F7BO Bl 2E LDA ($2E),Y Get next data byte and save as 2nd 
F7B2 85 54 STA $54 byte to be converted 

F7B4 C8 INY Set buffer pointer to next char, 
F7B5 Bl 2E LDA ($2E),Y Get byte frm databuffer & save as 
F7B7 85 55 STA $55 third byte to be converted 

F7B9 C8 INY Set buffer pntr to next byte, and 
F7BA: 84 36 STY $36 save 

F7BC 20 DO F6 JSR SF6DO 4 bin.bytes convrted to 5 GCRbytes 
F7BF A4 36 LDY $36 Get buffer pointer again 

F7C1l Bl 2E LDA (S2E),Y Get next byte to be converted and 
F7C3 85 52 STA $52 save in temporary storage 

F7C5 C8 INY Set buffer pointer to next char 
F7C6 FO 11 BEQ SF7D9 End of interim buffers reached? 
F/C8 Bl 2E LDA (S2E),Y Get 2nd data byte for conversion, 
F7CA 85 53 STA $53 and save it 

F7CC C8 INY Increment buffer pointer 

F7CD Bl 2E LDA (S2E),Y Get third byte for conversion and 
F7CF 85 54 STA $54 store in GCR buffer 

F7D1 C8 INY Set buffer pointer to next byte 
F7D2 Bl 2E LDA (S$2E),Y Get 4th byte for conversion and 
F7D4 85 55 STA $55 save it 

F7D6 C8 INY Set buffer pointer to next char 
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F7D7 DO El BNE SF7BA Entire buffer converted? 

F7D91 AS 3A LDA $3A Save data block 

F7DB 85 53 STA $53 checksum 

F7DD AQ OO LDA #$00 and put fill characters in 
F7DF 85 54 STA $54 the remainder of the 

F7E1 85 55 STA $55 GCR work buffer 

F7E3 4C DO F6 JMP SF6DO 4 binary bytes to 5 GCR-values 


[BF2D/F4A9/F4B8/F60A/F624/F64F/F8F4/F90E}] VGL. 98D9 
5 GCR-bytes converted into 4 binary bytes 


F7E6 A4 34 LDY $34 Get buffer pointer again 

F7E8 Bl 30 LDA ($30),Y Get first byte from buffer and 
F7EA 29 F8 AND #SF8 isolate the 

F7EC 4A LSR A 5-bit GCR value 

F7ED 4A LSR A Then set up 8-bit value whereby 
F7EE 4A LSR A the 5 GCR-bits take up 

F7EF 85 56 STA $56 positions 0-4 , and save value 
F7F1 Bi 30 LDA ($30),Y Get 2nd byte from buffer and 
F7F3 29 07 AND #S$07 isolate 3 bits of next GCR-byte, 
F7F5 OA ASL A and move to bit positions 

F7F6 OA ASL A 0-4 

F7F7 85 57 STA $57 Save resulting GCR-byte 

F7F9 C8 INY Set buffer pointer to next char 
F7FA DO 06 BNE SF802 End of buffer reached? 

F7FC AS 4E LDA $4E Set up pointer to current 

F7FE 85 31 STA $31 data buffer 

F800 A4 4F LDY S4F Pointer to buffer position 
F802! B1 30 LDA ($30),Y Get 2nd GCR-byte 

F804 29 CO AND #SCO & remaining 2 bits of GCR-value 
F806 2A ROL A and move to proper 

F807 2A ROL A position 

F808 2A ROL A (Bits 0-1) 

F809 05 57 ORA $57 Combine lst section 

F80B_ 85 57 STA $57 Save GCR-value 

F80D Bl 30 LDA ($30),Y Get GCR-byte from buffer 

F80F 29 3E AND #5$3E Set up next GCR-value 

F811 4A LSR A and set in output position 

F812 85 58 STA $58 Save value 

F814 Bl 30 LDA ($30),Y Get next GCR-byte 

F816 29 O01 AND #S$01 & get 1ST part of next GCR-value 
F818 OA ASL A Get 

F819 OA ASL A bit in 

F81A OA ASL A position 4 

F81B OA ASL A of the byte 

F81C 85 59 STA $59 and save value 

F81E C8 INY Set pointer to next byte 

F81F Bl 30 LDA ($30),Y and get GCR-byte from buffer 
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F821 29 FO AND #SFO Get 2nd part of GCR-value 
F823 4A LSR A and 

F824 4A LSR A shift the lower 

F825 4A LSR A half of the byte 

F826 4A LSR A (positions 0-3) 

F827 05 59 ORA $59 Combine with previous bits 
F829 85 59 STA $59 and save GCR vlaue 

F82B Bl 30 LDA ($30),Y Get GCR-byte from buffer again 
F82D 29 OF AND #S0F and then get the 1st four bits 
F82F OA ASL A of the next GCR-value 

F830 85 5A STA S5A and save them 

F832 C8 INY Buffer pointer to next byte 
F833 Bl 30 LDA ($30),¥Y Get GCR-byte from buffer 
F835 29 80 AND #$80 and get last bit of 

F837 18 CLC preceding 

F838 2A ROL A GCR-value 

F839 2A ROL A Move bit to position 0 

F83A 29 01 AND #5$01 of byte and combine with 
F83C 05 SA ORA $5A 4 previous bits 

F83E 85 5A STA SSA Save GCR-value 

F840 Bl 30 LDA ($30),Y Get GCR-byte from buffer again 
F842 29 7C AND #$7C Isolate GCR-value 

F844 4A LSR A and shift postions 0-4 

F845 4A LSR A of byte 

F846 85 5B STA S$5B Save value 

F848 Bl 30 LDA ($30),Y Get GCR-byte again 

F84A 29 03 AND #S$03 and get 2 bits of the 

F84C OA ASL A . next GCR-value 

F84D OA ASL A Shift bits in postions 

F84E OA ASL A 3 and 4 

F84F 85 5C STA $5C Save value 

F851 C8 INY Buffer pointer to next byte 
F852 DO 06 BNE SF85A End of buffer reached? 

F854 AS 4E LDA S$4E Turn buffer pointer to 

F856 85 31 STA $31 current data buffer 

F858 A4 4F LDY $4F Get position pointer again 
F85A Bl 30 LDA ($30),Y Read GCR-byte from buffer 
F85C 29 EO AND #SEO and isolate remaining 3 bits from 
F85E 2A ROL A previous GCR-values 

F85F 2A ROL A Shift bits in positions 
F860 2A ROL A 0-2 

F861 2A ROL A (using a carry) 

F862 05 5C ORA $5C Combine previous 2 bits 
F864 85 5C STA $5C Save pure GCR-value 

F866 Bl 30 LDA ($30),Y Get byte from GCR-buffer 
F868 29 1F AND #S1F Isolate last GCR-value 

F86A 85 5D STA $5D and save it 
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F86C C8 INY Buffer pointer to next byte, 

F86D 84 34 STY $34 and save it 

F86F A6 56 LDX $56 Load lst 5-bit-GCR-byte 

F871 BD AO F8 LDA SF8A0,X and equivalent most sig. part 
F874 A6 57 LDX $57 with least sig. part, by which 
F876 1D CO F8 ORA SF8CO,X the 2nd GCR-byte declares, 

F879 85 52 STA $52 combines & saves as binary bytes 
F87B A6 58 LDX $58 Load 3rd 5-bit GCRbyte and equiv. 
F87D BD AO F8- LDA SF8A0,X most sig. part with the least 
F880 A6 59 LDX $59 sig. part, through which the 4th 
F882 1D CO F8 ORA SF8CO,X GCR-byte will declare, combine & 
F885 85 53 STA $53 save as binary bytes 

F887 A6 5A LDX SSA Load 5th 5-bit-GCRbyte and equiv. 
F889 BD AO F8 LDA SF8A0,X most sig. part with the least 
F88C A6 5B. LDX $5B sig. part, by which 

F88E 1D CO F8 ORA SF8CO,X the 6th GCR-byte will declare, 
F891 85 54 STA $54 combine and save as binary bytes 
F893 A6 5C LDX $5C Load 7th 5-bit-GCRbyte and equiv. 
F895 BD AO F8 LDA S$F8A0,X . most sig. part with the 

F898 A6 5D LDX $5D least sig. part, by which 

F89A 1D CO F8 ORA SFS8CO,X the 8th GCR-byte will declare, 
F89D 85 55 STA $55 combine and save as binary bytes 
F89F 60 RTS Return from this subroutine 


Table of the most significant parts of GCR equivalents of binary 
bytes; SFF means that this GCR value is undefined 

F8A0 FF FF FF FF FF FF FF FF 

F8A8 FF 80 00 10 FF CO 40 50 

F8BO FF FF 20 30 FF FO 60 70 

F8B8 FF 90 AO BO FF DO EO FF 

Table of the least significant parts of GCR equivalents of binary 
bytes; SFF means that this GCR value is undefined 

F8CO FF FF FF FF FF FF FF FF 

F8C8 FF 08 00 01 FF OC 04 05 

F8D0 FF FF 02 03 FF OF 06 07 

F8D8 FF 09 OA OB FF OD OE FF 
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Reset pointer to 

current GCR-byte 

Clear pointer to target buffer 
Pointer to current data position 
Set pointers S4E/S4F to 

the beginning of the 

status buffer 

from $01BB-S01FF 

Set buffer pointer to value of 
current data buffer 

Convrt 5 GCRbytes to 4binarybytes 
Set first converted byte as 
header block identifier 

Set pointer in buffer 

Write second converted byte into 
current data buffer 

Write third 

converted byte 

into current data buffer 

Write fourth 

converted byte into 

current data buffer 

Set buffer pointer to next byte; 
save it down 

Convrt 5 GCRbytes to 4binarybytes 
Get buffer pointer again 

Write first conveted byte 

into current data buffer 

Set buffer pointer to next byte 
Data buffer full? 

NO-Write second converted byte 
into current data buffer 

Write third converted 

byte into the 

current data buffer 

Write fourth converted 

byte into the 

current data buffer 

Set buffer pointer to next byte 
Data buffer already full? 
YES-Then save second converted 
byte as checksum (parity) 
Prepare pointer to 

current data buffer 

Return from this subroutine 


[BF24/F4ED] cf. 9965 
Convert status buffer from GCR to binary 
F8EO AQ 00 LDA #$00 
F8E2 85 34 STA $34 
F8E4 85 2E STA $2E 
F8E6 85 36 STA $36 
F8E8 A9 O01 LDA #$01 
F8EA 85 4E STA S4E 
F8EC AQ BA LDA #SBA 
F8EE 85 4F STA $4F 
F8FO AS 31 LDA $31 
F8F2 85 2F STA $2F 
F8F4 20 E6 F7 JSR $F7E6 
F8F7 A5 52 LDA $52 
F8F9 85 38 STA $38 
F8FB A4 36 LDY $36 
F8FD AS 53 LDA $53 
F8FF 91 25 STA ($2E),Y 
F901 C8 INY 

F902 AS 54 LDA $54 
F904 91 2E STA ($2E),Y 
F906 C8 INY 

F907 AS 55 LDA $55 
F909 91 2E STA ($2E),Y 
F9OB CB INY 

F90c! 84 36 STY $36 
FOOK 20 E6 F7 #£4.JSR $FT7E6 
F911 A4 36 LDY $36 
F913. AS 52 LDA $52 
F915 91 2E STA ($2E),Y 
F917 C8 INY 

F918 FO 11 BEQ $F92B 
F91A AS 53 LDA $53 
F91C 91 2E STA ($2E),Y 
F91E C8 INY 

FOIF AS 54 LDA $54 
F921 91 2E STA ($2E),Y 
F923 C8 INY 

F924 AS 55 LDA $55 
F926 91 2E STA ($2E),Y 
F928 C8 INY 

F929 DO El BNE $F90C 
F92B! AS 53 LDA $53 
F92D 85 3A STA $3A 
F92F AS 2F LDA $2F 
F931 85 31 STA $31 
F933 60 RTS 
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(972E/BF1B/F533] 

Convert sector header into GCR-bytes 

F934 AS 31 LDA $31 Take up pointer 

F936 85 2F STA S2F to current data buffer 

F938 A9 00 LDA #$00 Turn data pointer to 

F93A 85 31 STA $31 header buffer 

F93C AQ 24 LDA #$24 which begins 

F93E 85 34 STA $34 at $24 

F940 A5 39 LDA $39 Identifier for blockheader (8) 
F942 85 52 STA $52 in temp storage for GCR-routine 
F944 AS 1A LDA S$1A Blockheader checksum in 

F946 85 53 STA $53 temporary storage for GCR-routine 
F948 AS 19 LDA $19 Data block sector number in 

F94A 85 54 STA $54 temporary storage for GCR-routine 
F94C A5 18 LDA $18 Track number of data block 

FO4E 85 55 STA $55 in temp storage for GCR-Routine 
F950 20 DO F6 JSR SF6DO Convrt 4binarybytes to 5 GCRbytes 
F953 AS5 17 LDA $17 2nd character of ID 

F955 85 52 STA $52 in temp storage for GCR-Routine 
F957 AS 16 LDA $16 First character of ID 

F959 85 53 STA $53 in temp storage for GCR-Routine 
F95B A9 00 LDA #$00 Temporary storage for GCR-Routine 
F95D 85 54 STA $54 filled with 

FO5F 85 55 STA $55 two empty spaces 

F961 20 DO F6 JSR SF6DO Convrt 4binarybytes to 5 GCRbytes 
F964 AS 2F LDA $2F Prep current 

F966 85 31 STA $31 data buffer pointer 

F968 60 RTS Return from this subroutine 


[BF12/F2D5/F390/F40D/F420/F4F8/F507/F553/F583/F6C7/FDA0O/FDE2]cf99B5 
End current job; prepare error return message 


F969 A4 3F LDY $3F Buffer number of job 

F96B 99 00 OO STA $0000,Y Error message in command register 
FO96E AS 50 LDA $50 Flag for GCR-format 

F970 FO 03 BEQ S$F975 Data still in GCR-code? 
F972 20 F2 F5 JSR SFSF2 YES—Convert GCR-data 

F975 20 8F FQ JSR SF98F Drive motor off 

F978 <A6 49 LDX $49 Temporary storage for Stack 
FOTA 9A TXS Reset stack to read whether 
F97B 4C BE F2 JMP SF2BE a new job is there 
[92F5/F2DF] 

Drive motor on; wait until motor is constantly on 

FO7TE AQ AO LDA #SA0 Set 'Motor runs on' flag 
F980 85 20 STA $20 as drive status 

F982 AD 00 1C LDA $1C00 Get control register 

F985 09 04 ORA #S$04 and set motor bit (Bit2) 
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F987 8D 00 1C STA $1C00 to 'motor on' (=1) 

FO98A A9 32 LDA #$32 Set counter for 0.8 / 0.4 secs. 
F98C 85 48 STA $48 delay time | 
F98E 60 RTS Return from this subroutine 
[86CF/98C1/F975] 

Drive motor off 

FO8F A6 3E LDX $3E Current drive 

F991 AS 20 LDA $20 Get drive status and switch off 
F993 09 10 ORA #510 flag for 

F995 85 20 STA $20 motor off' 

F997 4C 2B A6 JMP SA62B Set runtime counter 

F99A EA NOP unused [1541 ROM 

F99B EA NOP modification] 


[BF 6F /F2E6/F2F0/F2F6/F31D/F48A/FAF2/FAFD/FD93/FDD8 ]} 
Main disk control routine 


07 1c 
05 1c 
00 1C 
10 
1E 
1E 


FE 02 
15 
02 
07 
00 
FE 02 
OA 
4A 
02 
FE 02 
2E FA 
3E 
07 
20 


F99C AD 
FOOF 8D 
F9A2 AD 
F9A5 29 
F9A7 C5 
FOAQ9 85 
F9AB 4C 
FOAR EA 
FOAF EA 
FOBO EA 
[A657] 
Control head 
F9B1 AD 
F9B4 FO 
FOB6 C9 
FO9B8 DO 
FOBA AQ 
FOBC 8D 
FOBF FO 
Facil 985 
F9C3 AQ 
F9C5 8D 
F9C8 4C 
FOCB2 A6 
FOCD 30 
FOCF AS 
F9D1 A8 


LDA 
STA 
LDA 


$1C07 
$1C05 
$100 
#510 


Timer w/# of time cycles (hi-byte) 
set until next IRQ 

Check status of light box for 
write-protect on disk 

or disk change 

Save write-protect status 

Switch motor 


Unused 
section, due to modification 
of 1541-ROM 


Status flag for step-motor 

Is the head on the chosen track? 
NO-Is the head even positioned 
on the chosen track area? 
YES-—Set ‘head on 

track' flag 

Jump to SF9CB 

Counter for number of half-steps 
Set head status flag to 

'Head on track' and move a 

1/2 step along on chosen track 
Drive motor status 

Motor running? 

YES—Test drive status flag 

Save it down 
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F9D2 C9 
F9D4 DO 
FOD6* 4c 
F9D91 cé6 
FOIDB DO 
FODD 98 
FODE 10 
FORO 29 
F9E2 85 
FOE41 29 
FOR6 FO 
FOR8 C6 
FOFA DO 
FO9EC EA 
FIED 20 
FOFO AQ 
FOF2 85 
FOF4 Ag 
FOF6 85 
FOF8 FO 
FOFA> 98 
FOFB 29 
FOFD DO 
FOFF 4C 
FAO2! €c 
Possible 


20 
03 
BE FA 
48 
1D 


04 
TF 
20 
10 
12 
35 
OE 


70 87 
FF 
3E 
00 
20 
DC 


40 
03 
BE FA 
62 00 


#$20 
SF9D9 
SFABE 
$48 
SFOFA 


SF9OR4 
#S7F 
$20 
#$10 
SFOFA 
$35 
SFOFA 


$8770 
#SFF 
$3E 
#$00 
$20 
SF9D6 


#$40 
SFA02 
SFABE 


($0062) 


routine calls: 


Initialize head control 
Slow head movement 


End head movement 
Initialize fast head movement 


Fast head movement 


Slow down fast head movement 


Motor on and off 

Constant turning number? 
Circuitry initialization 
Delay counter for motor run; 
motors at turn number? 
YES-—Get drive status again 
Drive ready? 

NO-Clear flag for motor 


pause; note this 
Test bit for ‘motor runs’ 
Active? 


YES-Number of jobloop call 
Need the step motor again? 
NO—Drive motor 


off 

Clear ‘drive active' 
flag 

Clear drive status 
flag 


Jump to SF9D6 

Drive status flag 

Isolate flag for stepper status 
Should head be moved? 

NO—Jump to SFABE 

YES—Goto current stepper routine 


[Jump over FA02] 


Initialization routine for head movement 


FAO5 
FAO7 
FA09 
FAOB 
FAOC 
FAOEL 
FA10 
FA12 
FA14 


AS 


4A 
05 
FF 


01 
64 
OA 
3B 
62 


LDA 
BPL 
EOR 
CLC 
ADC 
CMP 
BCS 
LDA 
STA 


S4A 
SFAOE 
#SFF 


#501 
$64 
SFA1C 
#$3B 
$62 


Number of half-steps up to track 
Should the head move in? 

YES—-The supply the 

step size with 

positive leading character 

Test for 'Head at track 0' 

Fast head movement? 

NO-Call SFAO02 

Set slow head movement routine, 
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FA16 A9 FA LDA #SFA where pointers $62/63 are turned 
FA18 85 63 STA $63 to SFA3B 

FAIA DO 12 BNE SFA2E Jump to SFA2E 

FA1C! £5 5E SBC S$5E Go to # of steps for motor and 
FA1E ES 5E SBC S5E slow motor (by 4)by total steps; 
FA20 85 61 STA $61 save it 

FA22 AS SE LDA $5E Set pointer for number of 

FA24 85 60 STA $60 running steps 

FA26 AQ 7B LDA #$7B Call for routine in SFA02 

FA28 85 62 STA $62 for fast head movement; 

FA2ZA AQ FA LDA #SFA set pointers in 

FA2C 85 63 STA $63 $62/$63 to $FA7B 

FA2E4 AS 4A LDA $4A Step pointer 

FA30 10 31 BPL S$FA63 Inward movement? 

FA32 4C 36 FF JMP SFF36 YES—Control stepper motor 

FA35 EA ... NOP unused 

FA37 ... EA NOP ROM area 

[PFFUF] 

FA38 4C 69 FA JMP SFA69 Control stepper 


[Jump by FAO2] 
Execute slow head movement for a short distance 


FA3B A5 4A LDA $4A Step counter for # of half-steps 
FA3D DO EF BNE S$FA2E Target spur reached? 

FA3F AQ 4E LDA #S$4E Call in S$FA02 for routine 

FA41 85 62 STA $62 to end head movement 

FA43 AQ FA LDA #SFA set, in which the pointers 

FA45 85 63 STA $63 $62/$63 are turned to SFA7B 

FA47 AQ O5 LDA #$05 Fifth half-step set to stop 
FA49 85 60 STA $60 head 

FA4B 4C BE FA JMP SFABE Prep byte ready flag 


[Originates at FAO02] 
End of head movement 


FA4E C6 60 DEC $60 Number of steps to brake head 
FA5O DO 6C BNE SFABE Braking procedure executed? 
FA52 A5 20 LDA $20 Drive status flag 

FAS4 29 BF AND #SBF Reset bitflag for 

FA56 85 20 STA $20 head in motion 

FA58 AQ 05 LDA #$05 Call in SFA0O2 for routine to 
FASA 85 62 STA $62 initialize head movement 

FASC AQ FA LDA #SFA Set, in which the pointers in 
FASE 85 63 STA $63 $62/$63 are set at SFAOS5 

FA60 4C BE FA JMP SFABE Prep Byte Ready Flag 
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Control stepmotor 

FA63 C6 4A DEC S4A 
FA65 AE OO 1C LDX $1C00 
FA68 E8 INX 

FA69! ga TXA 

FA6A 29 03 AND #S$03 
FA6C 85 4B STA $4B 
FA6E AD OO 1C LDA $1C00 
FA71 29 FC AND #SFC 
FA73 05 4B ORA $4B 
FA75 8D 00 1¢ STA $1C00 
FA78 4C BE FA JMP SFABE 
[Originates at FA02] 

Set up fast head movement and move 
FA7B 38 SEC 

FA7C AD 07 1C LDA $1C07 
FA7TF ES 5F SBC SSF 
FA81 8D 05 1C STA $1C05 
FA84 C6 60 DEC $60 
FA86 DO OC BNE SFA94 
FA88 AS 5E LDA SSE 
FA8A 85 60 STA $60 
FA8C AQ 97 LDA #$97 
FA8E 85 62 STA $62 
FASO AQ FA LDA #SFA 
FA92 85 63 STA $63 
FA947 4c 2E FA JMP $FA2E 


[Originates at FA0O2] 
Execute fast head movement 


FA97 C6 61 DEC $61 
FA99 DO F9 BNE SFA94 
FA9B AQ AS5 LDA #SA5 
FA9D 85 62 STA $62 
FASF A9 FA LDA #5FA 
FAA1 85 63 STA $63 
FAA3 DO EF BNE SFA94 


[Originates at FA02] 
Braking head after fast movement 


FAA5 AD 07 1C LDA $1C07 
FAA8 18 CLC 

FAAQ9 65 SF ADC S$5F 
FAAB 8D 05 1C STA $1C05 
FAAE C6 60 DEC $60 


1571 Internals 
a ee 


Number of half-track steps 
Control port for stepper motor 
Move head outward in which the 
stepper bits 0 & 1 will be 
counted outwards: isolate and 
save control bits 

Get drive control reg. and clear 
stepper motor bits 

Conbine previously computed bits 
and control stepper motor 
Prepare byte ready flag 


head 
Time constant until 
next call 
to decrement driving constant (4) ; 
this conveys stepper impulse 
to traveler 
Four driving impulses given? 
YES-—Set counter for later 
braking 
Call SFAO2 to routine 
to set fast head move- 
ment, in which the pointers of 
$62/$63 are set to SFAQ97 
Move head 


Half-step counter 

Reached target? 

YES-Set call in S$FA02 to routine 
for head braking, in 

which pointers 

$62/$63 are set to SFAA5 

Jump to SFA94 


Increase time constant until 
next call, which will slow down 
stepper impulses, to prevent a 
‘track overflow' 

Counter for braking impulse 
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Already stopped? 

YES—-Set call in SFA02 to 
end head transport routine, 
in which pointers 

$62/$63 are turned to SFA4E 
Reset number of 

braking impulses 


[F9D6/F9OFF/FA4B/FASO/FA60/FA78/FF74] 


FABE 


AD OC 
29 FD 
8D OC 
60 


1c 


1c 


LDA 
AND 
STA 
RTS 


$1C0C 
#SFD 
$1C0C 


Initialize read/write circuitry 
in which bit 1 (Byte Ready Flag) 
will be reset 

Return from this subroutine 


Format diskette in 1541 format 
follows at ($0600), 


Original 

FAC7 AS 51 
FAC9 10 2A 
FACB A6 3D 
FACD A9 60 
FACF 95 20 
FAD1 AQ 01 
FAD3 95 22 
FAD5 85 51 
FAD7 AQ A4 
FAD9 85 4A 
FADB AD 00 
FADE 29 FC 
FAEO 8D 00 
FAE3 AQ OA 
FAE5 8D 20 
FAE8 AQ AO 
FAEA 8D 21 
FAED A9 OF 
FAEF 8D 22 
FAF2 4C 9C 
FAF5+ ao 00 
FAF7 Dl 32 
FAF9 FO 05 
FAFB 91 32 
FAFD 4C 9C 
FBOO! AD 00 
FBO3 29 10 
FBO5 DO 05 
FBO7 AQ 08 
FBO9 4C D3 
FBOC? 20 A3 


1c 


1¢ 


06 


06 


06 
F9 


F9 
1c 


FD 
FD 


LDA 
BPL 
LDX 
LDA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDA 
AND 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JMP 
LDY 
CMP 
BEQ 
STA 
JMP 
LDA 
AND 
BNE 
LDA 
JMP 
JSR 


$51 
SFAF5 
$3D 
#$60 
$20,X 
#$01 
$22,X 
$51 
#SA4 
S4A 
$1000 
#SFC 
$1c00 
#S0A 
$0620 
#SA0 
$0621 
#SOF 
$0622 
SF99C 
#$00 


($32),¥ 


SFBOO 


($32),Y 


$F99C 
$1C00 
#$10 

SFBOC 
#508 

SFDD3 
SFDA3 


where you can put your own programs 


Current track number 

Format procedure already started? 
NO-Get current drive number, and 
set head movement flag for drive 
status flag (Bit 6/5) 

Track 11 as disk's start track 
controller -- 

save it 

Move head 46 tracks(til strking) 
outward . 

Clear controlbits f/stepper motor 
and give to 

stepper 

Set maximum number of format 
tries 

Set starting value f/named track 
capacity in $0621/$0622 to SOFAO 
(which is equal to 

4000 bytes capacity) 

Move head on track 

Compare current track number with 
number in temporary storage 

Still same track being worked on? 
NO-—Get current track number 

Move head to new track 

Get control register, and 

test for write protect (Bit4) 
Write protect on hand? 
YES—Display 

'26 Write Protect On' error msg. 
Write $FF to entire track 
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EC 
02 


1c 


1¢ 


18 
1C 


18 


FD 


18 
1c 


18 
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Fill track capacity w/ SFF and 
write in the same number of 

$55 bytes 

Capacity marked in $0621/$622 
Switch head to Read mode 

Wait for first S$FF byte (Sync) 
Run of timer 1 will 

produce an impulse 

on PB7 (ATN-input) 

Timer 1 is programmed 

for a runtime of 

62 

impulses 

Start timer 1 

Clear 

counter 

Test sync-flag 

Wait until sync-signal is gone 
Check sync-flag 

Wait until sync-range comes again 
Get curr countr state from timerl 
Test sync-flag 

Is syne range now past? 

NO-Get interrupt flags 

and test 'Timer 1 running' flag 
Time up? 
YES—Increment timer 

Run into a transfer? 
YES—Correct high-byte of counter 
Timer overrun? 

YES—Display 


‘20 Read Error’ message 
Save number of 

$55 bytes 

Clear register for next 
count 


Get counter state of timer 1 
Check sync-flag 

Is head over sync range? 
NO—Get interrupt flag and 
test 'Timer 1 running' flag 
Time up? 

YES—Increment counter 
Reached a transfer? 
YES—Correct high-byte of counter 
Counter overflow? 
YES—Display 
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FB7A 
FB7D4 
FB7E 
FB7F 
FB81 
FB82 
FB84 
FB85 
FB87 
FB88 
FBSA 
FB8C 
FB8E 
FB8F 
FB90 
FB92 
FB93 
FB94 
FB96 
FB972 
FB98 
FBOA 
FB9C 
FBOEL 
FBAO 
FBA2 
FBA3 
FBAS 
FBA8 
FBAB 
FBAD 
FBBO 
FBB3 
FBB61 
FBB8 
FBBA 
FBBB> 
FBBE 
FBCO 
FBC2 
FBC3 
FBC4 
FBC6 
FBC7 
FBC9 
FBCB 
FBCE2 


4C 
38 
8A 
E5 
AA 
85 
98 
ES 


4C 
8A 


D3 FD 


71 


70 


72 


71 
OB 
FF 


FF 


01 


04 
04 
18 
710 
71 


70 
21 06 
21 06 
71 
22 06 
22 06 
OC FB 
00 
00 


00 1¢ 
OE 
F9 


F5 


F2 


03 
D3 FD 


SFB97 


SFB9E 
#$04 
SFBB6 
$70 
$71 


$70 
$0621 
$0621 
$71 
$0622 
$0622 
SFBOC 
#$00 
#$00 


$1C00 
SFBCE 
SFBBB 


SFBBB 


SFBBB 


#$03 
SFDD3 


1571 Internals 


ns 


'20 Read Error' message 
Calculate difference 

between $55 range and 

the SFF range; 

save in 

pointers $70/$71 for 
determining 

real track 

capacity 

(Take $71/72 frm X/Y & in $70/71) 
Is value negative? 

YES—Draw up 2nd complement of 
values 

(give absolute value) 

Complement low-byte 

and save it 

Design 2nd complement 

is one a transfer? 

YES—Correct and get 

high-byte 

Is value in X/Y less than 256? 
YES—Compare low-byte (X) with 4 
Track capacity same as 4 bytes? 
NO—Double track capacity 

value 

and calculate for track capacity 
Get low-byte and add to 

awaited value 

Save newly-awaited value 

Get high-byte and add 

to 

awaited value 

Determine track capacity again 
Clear 

counter 

Prepare 'byte ready' flag 

Test flag for sync-signal 

Is head over sync range? 
YES-Wait for next byte 

Prep 'Byte Ready' 

Increment counter 

Is there a transfer occurring? 
YES-—Correct high-byte of counter 
Is counter overflowing? 

YES-Set error #:'Sync not found’ 
and eventually re-test 

Double counter,put in $0625/50624 


ROM-292 


Abacus Software 


FBCF OA 
FBDO 8D 
FBD3 98 
FBD4 2A 
FBD5 8D 
FBD8 AQ 
FBDA 2D 
FBDD 8D 
FBEO AQ 
FBE2 8D 
FBE5 A6 
FBE7 AO 
FBEQ 98 
FBEA! 18 
FBEB 6D 
FBEE 90 
FBFO C8 
FBF1! cg 
FBF2 CA 
FBF3 DO 
FBF5 49 
FBF7 38 
FBF8 69 
FBFA 18 
FBFB 6D 
FBFE BO 
FCOO CE 
FCO3+ AA 
FCO4 98 
FCO5 49 
FCO? 38 
FCO8 69 
FCOA 18 
FCOB 6D 
FCOE 10 
FC10 AQ 
FC12 4C 
FC15! ag 
FC16 8A 
FC17 A2 
Fc191 38 
FCLA ES 
FC1C BO 
FClLE 88 
FC1IF 30 
FC211 Eg 
FC22 DO 


25 06 


24 06 
BF 
OB 18 
OB 18 
66 
26 06 
43 
00 


26 06 
01 


F5 
FF 


00 


25 06 


03 


24 06 


FF 


00 


24 06 


05 


04 


D3 FD 


00 


43 
03 


03 


FS 


SFC24 


SFC19 


1571 Internals 


Double and save 

low-byte 

Get high-byte and 

save as two 

values 

Flag for 'Run from Timer 1! 

Get interrupt flag and 

reset flag 

# of bytes f/every sector needed 
in addition to the 256 data 
Number of sectors 

Index value f/# of 256byte blocks 
Start value for surplus calc.s(0) 
and with it, calculate sector 
excess 

Are 256 more bytes needed? 

Index raised by 256 bytes 

Index raised by 256 bytes 

Compute next sector 

All sectors considered? 
YES—Compute 2nd complement 
(negative value) of remaining 
necessary bytes 

and subtract from total 

capacity (add negative value) 
Need to borrow? 

YES—Correct high-byte 

Save low-byte of capacity 

Get # of necessary 256byte blocks 
and draw up 2nd complement 
(negative value) 

from that 

Subtract # of neces 256byteblocks 
from total capacity 

Sufficient track capacity? 
NO—Display 'Block Not Found! 
error message 

Get number of remaining 

bytes 

Counter for number of blank bytes 
Number of bytes remaining 
divided by number of sectors, 

in which sector # will be divided 
by the empty bytes 

X counts as often as is possible 
Increment number of blank bytes 
Jump to S$FC19 
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Fo24al 
FC27 
FC29 
FC2B 
FC2D 
Fc302 
FC31 
FC33 
FC36 
FC38 
FC3B 
FC3D 
Fc3F1 
FC41 
FC44 
FC45 
FC46 
FC49 
FC4C 
FC4D 
FC4F 
FC52 
FC53 
FC55 
FC58 
FC59 
FC5B 
FC5E 
FC5F 
FC61 
FC64 
FC65 
FC68 
FC69 
FC6B 
FC6E 
FC71 
FC74 
FC77 
FC7A 
FC7D 
FC80 
FC82 
FC84 
FC85 
FC86 
FC87 


8E 
EO 


AD 


26 
04 
05 
05 
D3 


43 
27 
00 
28 
00 
3D 
39 
00 


28 
00 


od 
00 


13 
00 


12 
00 


OF 
00 


00 


00 
FA 
FB 
FC 
FD 
F9 
28 
28 
43 
BB 


06 


FD 


06 


06 


03 


06 
03 


03 


03 


03 


03 


03 


02 
02 
02 
02 
02 
06 
06 


$0626 
#504 
SFC30 
#$05 
SFDD3 


$43 
$0627 
#$00 
$0628 
#500 
$3D 

$39 
$0300,Y 


$0628 
$0300,Y 


$51 
$0300,Y 


$13,X 
$0300,Y 


$12,X 
$0300,Y 


#S50F 
$0300,Y 


$0300,Y 


#$00 
SO2FA,Y 
SO2FB,Y 
$O02FC,Y 
SO2FD,Y 
$02F9,Y 
$0628 
$0628 
$43 
SFC3F 
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save number of blank bytes 

and compare with 4 bytes 

Is skip smaller? 

YES—Display 

'23 Read Error' message 

Add number of sectors 

to track and 

save result 

Reset counter for 

sectors written up 

Clear pointrs for blockheader set 
up in buffer 1 

Write blockheader identifier (8) 
into blockheader 

Set pointer to next position 

Jump over to checksum byte 

Write number of current sector 

in blockheader 
Set pointer to 
Take up number 
in blockheader 
Set pointer to next position 
Write second ID character 

in blockheader 
Set pointer to 
Transfer first 
to blockheader 
Set pointer to next position 
Write SOF (15) 

twice to fill 

in the 


next position 
of current track 


next position 
ID character 


- blockheader in 


the buffer 

Checksum for: 

Track number 

Sector number 

Second ID-char. 

First ID-char. 

Compute and set into blockheader 
Set countr for current sector # 
to next sector; compare with 
value for max. sector number 
All sectors covered? 

YES—Keep pointer at 

current buffer position 

(1) 

Set up data block; 
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La SE ES SESS SSS SS ST 5 SS A SE St 


Fcsst 
FC8B 
FC8C 
FC8E 
FC90 
FC92 
FCQ95 
FC96 
FC97 
FC98 
FC9B 
FCOE 
FCAO 
FCA2 
FCAS 
FCAT 
FCAA 
FCAC 
FCAE 
FcBil 
FCB3 
FCB6 
FCB82 
FCBA 
FCBB 
FCBC 
FCBE 
FCCO 
FCC22 
FCC4 
FCC5 
FCC8 
FCCB 
FCCC 
FCCD 
FCCF 
FCD12 
FCD3 
FCD4 
FCD6 
FCD9 
FCDA 
FCDC 
FCDE 
FCEO2 
FCE2 
FCE3 


9D 
E8 
DO 
A9 
85 
20 
68 
A8 
88 
20 
20 
AQ 
85 
20 
85 


00 05 


FA 
03 
31 
30 FE 


ES FD 
F5 FD 
05 
31 
E9 F5 
3A 
8F F7 
00 
32 
OE FE 
FF 
O01 1c 
05 
FE 


FA 
OA 
32 
FE 


00 03 
O01 1c 


F3 
09 
FE 


295 
O01 1C¢ 


F5 
FF 
05 
BE 


O01 1c 


$0500,xX 


SFC88 
#$03 
$31 
SFE30 


SFDES 
SFDF5 
#505 
$31 
SF5E9 
$3A 
SF78F 
#500 
$32 
SFEOE 
#SFF 
$1C01 
#505 
SFCB8 


SFCB8 
#S0A 
$32 
SFCC2 


$0300,Y 


$1C01 


SFCC2 
#509 
SFCD1 


#$55 
$1C01 


SFCD1 
#SFF 
#505 
SFCEO 


$1C01 


Write to buffer 1 

Set pointer to next byte 

Buffer full? 

YES—Set address $0300 as current 
buffer address 

Convrt buffer contents to GCRcode 
Re-rig previous buffer position 
and set pointer to 

start of blockheader 

Move status buffer contents to 
buffer at $0300 

Set $0500 as curent 

buffer address 

Compute data block checksum and 
save it 

Change data block into GCR code 
Initialize pointer to current 
blockheader 

Clear track with $55 

Give identifier for sync-marking 
to write head 

Number of sync-bytes 

Wait for 'Byte Ready’ 

Prep 'Byte Ready' flag 
Decrement counter 

All synce-bytes already on Disk? 
Blockheader length 

Pointer in position in buffer 
Write circuitry ready? 

YES—Set up flag again 

Get GCR-bytes from buffer -- 
transfer to write head 

Buffer pointer to next character 
# of chars. yet to be written 
Header already written? 
YES-Write in spaces between 
block-header and datablock 

with fill values 

($55) 

Send byte over write head 
Counter for number of fillbytes 
Blanks aleady written? 

Write sync-mark for 

data blockheader to diskette 
Write circuitry ready? 

YES-Flag set again 

Sync-byte to write circuitry 
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FCE6 
FCE7 
FCE9 
FCEB2 
FCED 
FCEE 
FCF1 
FCF 4 
FCF5 
FCF7 
FCF 92 
FCFB 
FCFC 
FCFE 
FDO1 
FDO2 
FDO4 
FDO6 
FD092 
FDOB 
FDOC 
FDOF 
FD10 
FD12 
FD14 
FD15 
FD17 
FD19 
FDIC 
FD1E1 
FD20 
Fp212 
FD23 
FD24 
FD27 
FD29 
FD2C 
FD2E 
FD30 
FD32 
FD34 
FD36 
Fp391 
FD3C 
FD3E 
FD402 
FD42 


F7 
BB 
FE 


00 
01 


F4 
00 
FE 


30 
01 


F5 
55 
26 
FE 


O01 


F7 
32 


OA 
32 
28 
93 
FE 


FE 


00 
C8 
23 
00 
30 
03 
31 
43 
28 
56 
OA 
00 
FE 


01 
1c 


1C 


06 


LC 


06 


FE 


06 


06 
F5 


DEX 
BNE 
LDX 
BVC 
CLV 
LDA 
STA 
INX 
BNE 
LDY 
BVC 
CLV 
LDA 
STA 
INY 
BNE 
LDA 
LDX 
BVC 
CLV 
STA 
DEX 
BNE 
LDA 
CLC 
ADC 
STA 
DEC 
BNE 
BVC 
CLV 
BVC 
CLV 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
LDX 
LDY 
BVC 
CLV 


SFCEO 
#SBB 
SFCEB 


$0100,X 


$1C01 


SFCEB 
#500 
SFCF9 


($30),Y 


$1C01 


SFCF9 
#$55 

$0626 
SFDO9 


$1C01 


SFDO9 
$32 


#S0A 
$32 
$0628 
SFCB1 
SFD1E 


SFD21 


SFEOO 
#95C8 
$0623 
#500 
$30 
#503 
$31 
$43 
$0628 
SF556 
#50A 
#$00 
SFD40 


Counter for number of sync-bytes 
Sync-marking already written? 
Pointer to start of temp. buffer 
Write circuitry ready? 

YES—Prep 'Byte Ready' flag 

Get byte from buffer and 

write to diskette 

Buffer pointer to next byte 
Buffer written up? 

YES—Buffer pointer to data buffer 
Write circuitry ready? 
YES—Prepare ‘Byte Ready' 
Write byte to diskette 
from buffer 

Pointer to next char in buffer 

Is entire buffer written already? 
Fill space between 2 data blocks 
Number of bytes per space 

Write circuitry ready? 

YES—Reset flag 

$55 to read head 

Counter foor number of fillbytes 
Blanks already written in? 

Buffer pointer (to header 
position of next blockheader) -- 
set and save 

this pointer 

Draw up number of next sector 

All sectors already written? 
YES—Wait for next byte 


flag 


Prep 'Byte Ready’ flag 
Wait for next byte 
Reset ‘Byte Ready' 


—switch to read mode 

Set number of read attempts 
(200) 

Set buffer pointer $30/$31 
buffer 1 

($0300-SO03FF) 

($0300-S03FF) 

Save number of sectors 

per track 

Wait for sync-marking 
Number of bytes in blockheader 
Clear buffer pointer 

Read circuitry ready? 
YES-—Get flag ready 
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01 1c 


62 FD 
23 06 


D3 FD 
56 F5 


01 1C 
00 O1 


61 1c 


00 05 


28 06 


9C FY 


$1C01 


($30),Y 


SFD58 


SFD40 


$30 
#S0A 
$30 
SFD62 
$0623 
SFD2C 
#$06 
SFDD3 
SF556 
#SBB 
SFD67 


$1C01 


$0100,Y 


SFD58 
SFD67 
#SFC 

SFD77 


$1C01 


$0500,Y 


SFD58 


SFD77 
$0628 
SFD39 
$51 
$51 
#524 
SFD96 
SF99C 
#SFF 
$51 
#500 


Read byte from diskette and 
compare with buffer 

Blockheader being sought? 

Set pointer to nextbyte of 
header 

Last byte of header compared? 
Set buffer address to 

next blockheader 

in 

buffer memory 

again 

Number of read searches 

Last search? 

YES—Display 

'24 Read Error’ message 

Wait f/synemarking of data blocks 
Set buffer pointer to temp.buffer 
Read circuitry ready? 

YES—Reset Byte Ready Flag 
Compare byte from diskette 

with buffer contents 

Positive comparison? 

YES-Buffer pointer to next byte 
Entire buffer already compared? 
YES-—Counter f/ data buffer bytes 
Read circuitry ready? 

YES—Set Byte Ready flag back 
Read byte from diskette and 
compare with data buffer 
Positive comparison? 

YES—Set pointer to next 

byte 

Last character of buffer 

Number of sectors-1 of track 
All sectors tested? 
YES-Increment track # counter 
Set and save track; compare 
with max. number of tracks 
Reached track 35? 

NO-—Continue formatting 

Set flag to 

end formatting 

Clear 'Buffer in GCR-Code' 

flag 

Display 'ok' message; 

End of formatting 
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Switch head circuitry 


in PCR-Register to 

write 

mode (CB2 = 0) 

Switch read/write head port 

for output 

Write SFF 

Set counter in CPU-Register 

to 10240 

Wait for Byte Ready 

Byte Ready Flag prepared 
Low-byte of counter 

Executed once until null? 
YES—-Then decremnt hi-byte/counter 
Already written 10240 times? 
YES—Return from this subroutine 


[FBOC] 

Write track with SFF 
FDA3 ADOC 1C LDA 
FDA6 29 1F AND 
FDA8 09 CO ORA 
FDAA 8D 0C 1C_ STA 
FDAD AQ FF LDA 
FDAF 8D 03 1C STA 
FDB2 8D 011C_ STA 
FDB5 A2 28 LDX 
FDB7 AO 00 LDY 
FDB9> 50 FE BVC 
FDBB_ B8 CLV 
FDBC 88 DEY 
FDBD DO FA BNE 
FDBF CA DEX 
FDCO DO F7 BNE 
FDC2 60 RTS 
[FBOF/FB17] 
($0621/$0622) 

FDC3 AE 21 06  #LDX 
FDC6 AC 22 06 LDY 
FDC9> 50 FE BVC 
FDCB B8 CLV 
FDCC CA DEX 
FDCD DO FA BNE 
FDCF 88 DEY 
FDDO 10 F7 BPL 
FDD2 60 RTS 


times—wait on 


$0621 
$0622 
SFDC9 


SFDC9 


SFDC9 


Ready' signal 

Set loop 

counter 

Wait for Byte Ready 

Reset Byte Ready Flag 

Low-byte of counter 

at null? 

YES—Then decrement Y 

Y times awaited 256 Byte Readys? 
YES—Return from this subroutine 


[FBO9/FB59/FB7A/FBCB/FC12/FC2D/FD5F] 


Stop control by format errors > 


FDD3 
FDD6 
FDD8 
FDDB 


CE 


20 06 
03 
9C F9 
FF 
ont 


DEC 
BEQ 
JMP 
LDY 
STY 


$0620 
SFDDB 
SF99C 
#SFF 
$51 


Number of format attempts -1l 
Run across a format error? 
NO-Then continue formatting 
Set 'Format to end' 

flag 
Clear 
flag 
End formatting 


"Buffer In GCR-Code' 
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[FC98/FDEC] 
Copy bytes in buffer 0 at 70 bytes over 
(Y-register must contain the number of bytes to be copied) 


FDE5 B9 OO 03 LDA $0300,Y Get byte from start of buffer and 
FDE8 99 45 03 STA $0345,Y transfer up 

FDEB 88 DEY Choose next byte 

FDEC DO F7 BNE SFDES All bytes? 

FDEE AD 00 03 LDA $0300 YES—Then copy last 

FDF1 8D 45 03 STA $0345 byte and . 

FDF4 60 RTS return from this subroutine 
[FC9B] 

Copy the range $01BB-SO1FF in the buffer to which $30/$31 points 
FDF5 AO 44 LDY #$44 Startposition $01FF 

FDF7! B9 BB O01 LDA $01BB,Y Get byte from interim buffer and 
FDFA 91 30 STA ($30),Y transfer to data buffer 

FDFC 88 DEY Choose next byte 

FDFD 10 F8 BPL $FDF7 All bytes already transferred? 
FDFF 60 RTS YES—Return from this subroutine 


[8D59/9AE6/9CCC/FB1A/FD24/BFOC] 
Switch head circuitry from write to read 


FEOO AD OC 1C LDA $1C0C Get control register and 
FEO3 O09 EO ORA #SEO switch head to read 

FEO5 8D 0C 1C STA $1C0C (CB2 output =1) 

FEO8 A9 00 LDA #500 Switch data port to head 
FEOA 8D 03 1C STA $1C03 for input 

FEOD 60 RTS Return from this subroutine 


[FCAE] Write $55 to entire track 


FEOE AD 0C 1c LDA $1C0C Get control register 

FE11 29 1F AND #S1F and invert head for writing 
FE13 09 CO ORA #S$CO Bit 5-7 spread and set bit 6/7 
FE15 8D 0C 1C STA $1C0C (CB2 output =0) 

FE18 A9 FF LDA #SFF Switch head data port 

FE1A 8D 03 1c STA $1C03 to output 

FE1D AQ 55 LDA #$55 Send $55 over 

FEIF 8D 01 1c STA $1C01 the write head 

FE22 A2 28 LDX #528 Set register counter to 

FE24 AO 00 LDY #$00 write 10240 times 

FE26! 50 FE BVC SFE26 Electronics ready for next byte? 
FE28 B8 CLV YES—Reset flag again 

FE29 88 DEY Write 256 bytes 

FE2A DO FA BNE SFE26 256 Bytes already? 

FE2C CA DEX YES—-Write 256 bytes 40 times 
FE2D DO F7 BNE $FE26 40 writings completed? 

FE2F 60 RTS YES—Return from this subroutine 
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Convert blockheader from binary into GCR 


LDA 
STA 
STA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
INY 
BEQ 
STY 


#500 
$30 
$2E 
$36 
#SBB 
$34 
$31 
$2F 
#501 
$31 
$36 
($2E),Y 
$52 


($2E),Y 
$53 


(S2E),Y 
$54 


($2E),Y 
$55 


SFE64 


Reset buffer pointer 

to start 

Pointer low-byte to binary data 
Position in current buffer 

Turn position pointer to 

status buffer 

Get pointer to current 

data buffer 

Set pointer to 

status buffer 

Determine current position 

Get byte from buffer and save 
as first byte to be converted 
Turn pointer to next byte 

Get byte from buffer and save 
as second byte to be converted 
Turn pointer to next byte 

Get byte from buffer and save 
as third byte to be converted 
Turn pointer to next byte 

Get byte from buffer and save 
as third byte to be converted 
Turn pointer to next byte 
Reached end of buffer? 

NO-Save position 

Cmpute 4binary bytes to 5GCRbytes 
Continue conversion 

Cmpute 4binary bytes to 5GCRbytes 


[9BEC/FC92] 
FE30 A9 00 
FE32 85 30 
FE34 85 2E 
FE36 85 36 
FE38 A9 BB 
FE3A 85 34 
FE3C AS 31 
FE3E 85 2F 
FE40 AQ O01 
FE42 85 31 
FE44! ad 36 
FE46 Bl 2E 
FE48 85 52 
FE4A C8 

FE4B Bl 2E 
FE4D 85 53 
FE4F C8 

FE50 Bl 2E 
FE52 85 54 
FE54 C8 

FE55 Bl 2E 
FE57 85 55 
FE59 C8 

FESA FO 08 
FE5C 84 36 
FE5E 20 DO 
FE61 4C 44 
FE64! 4c pO 
[Originates 


FE67 6C AQ 


FE84_.. 


at system vector FFFE] 


02 JMP 


(S$O2A9) 


Jump to IRQ-Routine $9D88/S9DDE 


unused 
ROM-area 


Directory and BAM design 


FE85 12 
FE86 04 
FE87 04 
FE88 90 


Number of directory track (18) 

# of bytes for every track in BAM 
BAM start position in sector 18,0 
Beginning of disk name (Pos. 144) 
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Table of disk commands 


FE89 56 'V' : Validate / Collect 
FE8A 49 'I' : Initialize 

FE8B 44 'D' : Duplicate (dual drives only) 
FE8C 4D '' ; Memory command 
FE8D 42 '"B' : Block command 
FE8E 55 'U' 3; User command 

FE8F 50 'P' 3; Position / Record 
FE9O0 26 "é' $ & - command 

FE91 43 Cts Copy 

FE92 52 "R' : Rename 

FE93 53 'S' : Scratch 

FE94 4E "'N' : New / Header 


Addresses of disk commands 


FE95 84 05 Cl F8 1B 5C 07 A3 Low-bytes of origin addresses 
FE9D FO 88 23 OD for the commands 
FEAL ED DO C8 CA CC CB E2 E7 High-bytes of origin addresses 
FEAS9 C8 CA C8 EE for the commands 


Bit pattern for testing command syntax 


Meaning of bits : 
(l=been tested; corresponding bit in test value must be 0) 


BitO ‘'=' character on hand in command string 

Bitl Other parameters on hand after '=' character 
Bit2 Several filenames for 2nd file designation 
Bit3 Joker on hand in 2nd file designation 

Bit6 Several filenames for lst file designation 
Bit? Joker on hand in lst file declaration 


FEAD 51 %01010001 Copy file(s) 
FEAE DD $11011101 Rename file 
FEAF 1C %00011100 Scratch file(s) 
FEBO 9E $10011110 Format diskette 
FEB1L 1C %$00011100 Read file 


Identifier in command string for operating mode 
R, W, A, M 


FEB2 


File type identifier in command string 
44 53 50 55 4C 


FEB6 


52 57 41 


4D 


D, S, P, U, L 
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Names of different file types 


FEBB 44 53 50 55 52 ist char.: D, S, P, JU, R 
FECO 45 45 52 53 45 2nd char.: E, E, R, S, £ 
FEC5 4¢C 51 47 52 4¢ 3rd char.: ly. “OO, “Gey -Re cL 


Mask for LED-bit in control register 
FECA 08 00 Drive 0, drive 1 (not on hand) 


Set processor status flag 


FECC 00 N=0 V=0 Z=1 
FECD 3F N=0 V=0 Z=0 
FECE TF N=0 V=1 Z=0 
FECF BF N=1 V=0 Z=0 
FEDO FF N=1 V=1 Z=0 


Number of sectors in declared track range 


FED1 11 Track 31-35 : 17 sectors 

FED2 12 Track 25-30 : 18 sectors 

FED3 13 Track 18-24 : 19 sectors 

FED4 15 Track 01-17 : 21 sectors 

FED5 41 Identifier for 1541-Format ('A') 
FED6 04 Number of track changes 


Tracks that will be changed by the sector number and bitrate 
FED7 24 1F 19 12 track nummbr 36, 31, 25 and 18 


Buffer position in memory 
FEEO O03 04 05 06 O07 O7 High-bytes of buffer addresses 


[FFOB] Reset w/o hardware test; Pointer set through SEBC5 


FEE7 6C 65 00 JMP ($0065) Jump to SEB22 

[EA7A] 

Initialize and switch LED 

FEEA 8D 00 1C STA $1C00 Set 'LED on' bit (8) 

FEED 8D 02 1C STA $1C02 and switch pin for output 

FEFO 4C 7D EA JMP SEA7D Return to hardware error routine 
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[BF36/E97D] 

Bus delay for 1541 bus as opposed to 1540 bus 

FEF3 8A TXA Retain X-register 

FEF4 A2 05 LDX #S05 Set counter 

FEF6* CA DEX 42 cycles delay 

FEF7 DO FD BNE SFEF6 Time up? 

FEF9 AA TAX YES—Re-determine X-register 
FEFA 60 RTS Return from this subroutine 
[82AB/E980] 

Output null bit 

FEFB 20 AE EQ JSR SESAE Set clock output to high 
FEFE 4C 9C E9 JMP SE99C Set data output to low 


[Original at 'UI' command] 
1541/1540 Bus mode switching 


FFO1l AD 02 02 LDA $0202 Get 3rd char. frm command string& 
FFO4 C9 2D CMP #S$2D test with '-' 

FFO6 FO 05 BEQ SFFOD Identical? 

FFO8 38 SEC NO-Compare character 

FFO9 ES 2B SBC #S$2B with ‘+! 

FFOB DO DA BNE S$FEE7 Identical? 

FFOD! 85 23 STA $23 YES-Set flag for bus mode 
FFOF 60 RTS Return from this subroutine 
[EAA4 ] 

Input/Output initialization 

FF10 8E 03 18 STX $1803 Set data direction for PA 
FF13 AQ 02 LDA #$02 [For error,see 7.1.5] 

FF15 4C SA A6 JMP SA65A Continue 

[A664] 

Set data direction for PB 

FF18 A9 1A LDA #S1A %00011010 

FF1A 8D 02 18 STA $1802 in data direction register 
FF1D 4C A7 EA JMP SEAA7 Back to reset 

[E9DC/FF25] 

Data waits to equal low (phys. hih); set timer 
~FF20 AD OO 18 LDA $1800 Get bus control register and 
FF23 29 O1 AND #S01 test data line 

FF25 DO F9 BNE SFF20 Is data set? 

FF27 AQ 01 LDA #$01 NO-Start counter 

FF29 8D 05 18 STA $1805 for 256 cycles 

FF2C 4C DF £9 #£JMP SE9DF Keep going 
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[EE3D] 

Format dislette 

FF2F A9 FF LDA #SFF 
FF31 85 514 STA $51 
FF33 AD OF 18 LDA $180F 
FF36 29 20 AND #$20 
FF38 DO 03 BNE SFF3D 
FF3A A9 24 LDA #$24 
FF3C 2C ebyte $2C 
FF3D! a9 47 LDA #$47 


FF3F 8D AC 02 STA $02AC 
FF42 4C 79 A7 JMP SA779 


[FA32] cf. 87E7/9A66 
One half-step outward 


FF45 98 TYA 

FF46 48 PHA 

FF47 AO 64 LDY #$64 
FF491 AD OF 18 LDA $180F 
FF4C 6A ROR A 
FF4D 08 PHP 

FF4E AD OF 18 LDA $180F 
FF51 6A ROR A 
FF52 6A ROR A 
FF53 28 PLP 

FF54 29 80 AND #$80 
FF56 90 04 BCC SFFSC 
FF58 10 1D BPL $FF77 
FF5A 30 02 BMI SFFSE 
FF5c! 30 19 BMI $FF77 
FF5E! gg DEY 

FF5F DO E8 BNE $FF49 
FF61 BO 14 BCS $FF77 
FF63 AD 00 1C LDA $1C00 
FF66 29 03 AND #$03 
FF68 DO OD BNE $FF77 
FF6A AS 7B LDA $7B 
FF6C DO 09 BNE S$FF77 
FF6E 68 PLA 

FF6F A8 TAY 

FF70 A9 00 LDA #$00 
FF72 85 4A STA $4A 


Clear flag for current 

track 

Get control register 

and test operating mode 

Is drive in 1541 mode (1 MHz)? 
YES—Determine max. no. of tracks 
Jump to next 2 bytes(Bit command) 
Number of tracks in 2-sided mode 
set track number 

Format diskette 


Retain 

Y-register : 

# of pick-up attempts /tr.0O (100) 
Get control register A 

Put trackO-ident. (bit0O) in carry 
and save carry 

Read control register again 

Shift trackO-ident. (bit0) 

to bit7 

Get previous pick-up result 
Isolate last pick-up result 

Is trackO active in first test? 
NO—Has trackO now been reached? 
YES—Jump to SFE5E 

Is track 0 still active? 

YES-Try again 

All tries executed? 

YES-Is head at track0O-position? 
YES-—Cntrl register for step-motor 
Isolate stepper bits 

Is a stepper coil under control? 
NO-Set head cntrl byte/read error 
Head in position? 

NO-Re-establish 

Y-register 

Clear number of steps done by 
stepper 
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Initialize head 
Re-establish 

Y-register 

Move another step out 

Get control register and set 
head to move one 

step outward 


JSR $F259 
LDA #$05 
STA $3C 
LDA #588 
STA $02A9 
LDA #$9D 


Disk controller reset 
Determine IBM-34 
sector layout 

Turn IRQ vectors 
to routine 

$9D88 (1541 
interrupt) 

Set maximum number 
of tracks 35) 

Flag for 'side 1' 
Choose head 


Set drive status 
LED on 


control byte 


STA $7B 
JMP $D676 


Set byte in pointer 
Go back 


Rest positioning mode to next track 


JSR $D676 
LDA #500 
STA $7B 
RTS 


Control head 

Clear ‘head mode' 

flag 

Return from this subroutine 


Set buffer pointer to 'B-W' 


LDY $82 
JMP $D3DE 


Get channel number 
Set pointer 


FF74 4C BE FA 
FF777 68 

FF78 A8 

FF79 E6 4A 
FF7B AE 00 1C 
FF7E CA 

FF7F 4C 38 FA 
[903D/EBC2] 
Initialize 1541 mode 
FF82 20 59 F2 
FF85 A9 05 
FF87 85 3C 
FF89 A9 88 
FF8B 8D AQ 02 
FF8E A9 9D 
FF90 8D AA 02 
FF93 AQ 24 
FF95 8D AC 02 
FF98 18 

FF99 4C F3 93 
[EE1D] 
Activate drive 
FF9C 85 FF 
FF9E 4C 00 Cl 
[D610] 

Set head 

FFA1l 85 7B 
FFA3 4C 76 D6 
[D628] 

FFA6 20 76 D6 
FFAQ9 AQ O00 
FFAB 85 7B 
FFAD 60 
[CD91] 

FFAE A4 82 
FFBO 4C DE D3 
FFB3 FF ... 
FFE5 ... FF 


Unused 
ROM-area 
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[Not used in 1571 DOS] 
DOS system vectors 


FFE6 C6 C8 Format diskette 

SC8C6 

FFE8 8F F9 Switch off drive motor 
SFO8F 


User vectors; jump addresses of User commands 


FFEA 5F CD Ul or UA 3: Read sector SCD5F 
FFEC CD 97 U2 or UB : Write sector $CD97 
FFFE 03 05 U3 or UC : Jump to buffer 2 $0500 
FFFO 06 05 U4 or UD : Jump to buffer 2 $0503 
FFF2 09 05 U5 or UE : Jump to buffer 2 $0506 
FFF4 0C 05 U6 or UF : Jump to buffer 2 $0509 
FFF6 05 OF U7 or UG 3: Jump to buffer 2 $050C 
FFF8 OF 05 U8 or UH : Jump to buffer 2 SOS50F 
FFFA O01 FF U9 or UI : Toggle 1540/41 SFFO1 
System vectors 

FFFC AO EA Us: or UJ 3; Execute reset SEAAO 
FFFE 67 FE IRQ vector (Bus/Disk controller) SFE67 


©1985 Rainer Ellinger 
©1986 Abacus Software, Inc. 


ROM-306 


Abacus Software 1571 Internals 





Appendix B 
The 1570 DOS (1571 Revisions) 


The Commodore 1570 disk drive is a single-sided drive that utilizes 1571 
electronics, and is currently available only in Europe. Because this book is 
marketed internationally, and as Commodore may release the the 1570 in the 
United States, we have included this section detailing the differences 
between the two drives. 


The 1570 disk drive has almost the same operating system as the 1571 
drive, and so is treated as a modified 1571 ROM. In fact, the hardware of 
the two drives is almost identical. 


The biggest difference is that the 1570 drive is a single-sided drive (i.e., no 
two-sided read/write heads). All ROMs have been modified accordingly, 
making this drive operate with the same BAM as a 1541 drive. 


There are changes in the 1570's two motors. The stepper motor is not as 
efficient as that of the 1571 drive, and the 1570 motors are simply not as 
fast as those of the 1571. Thus, time constants for motor control have been 
changed. 


A few small errors have been cleared up in the 1570 which existed in the 
1571 series. 


1570 DOS 

0 aoe tC“ (t‘“‘Sé;*S! CR U!C!C!!COC:CS 
Mi Goods Geos  eamegemes | 
Spake. Geeuees  ceubeccpstnes Gory 0° 
Mite nt twietamene 
be SEE GEM GeeEicgeewornuere? 
oie Gee enh 
Mas 60 Cea | 
A446 EA NOP 2nd side of diskette 
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A4DD 53 54 45 56 45 20 4cC 41 Copyright for 1570 modification 


A4E5 4D OD by Steve Lam 

A597 AD D7 FE LDA SFED? Get highest track number 
AG?1 ADD? FE LDA SFED7 Get highest track number 
Aécd €D D7 FE STA SFED? Set highest track numer 
AGDF 8) D7 FE STA §FED? Set highest track number 
A126 8) D7 FE STA SFED? Set highest track number 
A773. @D D7 FE STA SFED? Set highest track numer 
ATB3 20 62 AA JSR §AA62 Get control register 
ATCT 4C CE AT MP SAICE Don't test isd mode 
AID? AD D7 FE LDA §FED7 Get highest track number 
A941 ADD? FE LDA §FED? Get highest track numer 


[D867] Test for error acknowledgements 


AA3F C9 02 CMP #$02 Compare with first error number 
AA41 90 07 BCC SAA4A Is there an error? 

AA43 C9 OF CMP #SOF NO-—Test for 'Drive not ready' 
AA45 FO 03 BEQ SAA4A Is drive ready? 

AA47 4C 6B D3 JMP SD36B YES—Return to main routine 
AA4A1 4C 73 D3 JMP $D373 Observe error 


{84E4] Format diskette 


AA4D 85 51 STA $51 Set current track to be formatted 
AA4F 20 7C 87 JSR $877C Drive LED on 

AA52 20 89 AQ JSR $A989 Format diskette 

AA5S 48 PHA Retain acknowledgement 

AA56 20 88 87 JSR $8788 Drive LED off 

AA59 68 PLA Repeat acknowledgement 

AA5A 60 RTS Return from this subroutine 


[90D9] Test filetype for program file 


AA5B AS E7 LDA $E7 Get filetype byte 

AASD 29 07 AND #$07 and isolate filetype flags 
AA5SF C9 02 CMP #$02 Compare with 'PRG' 

AA61_ 60 RTS Return from this subroutine 
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[AA62] Read control register 


AA62 AD OF 18 LDA #$180F Get value of control register 
AA65 2C O01 18 BIT #51801 Read in new value in control 
register 

AA68 60 RTS Return from this subroutine 
CD22 CD D7 FE CMP SFED7 Compare with maximum track 
DO3F 4C 8C D5 JMP S$D58C Execute job 

DO5D 20 86 D5 JSR $D586 Read BAM from diskette 


D367 4C 3F AA JMP SAA3F Test acknowledgement 

nats i 
“she a ae 
“uw 6|606€™€6€™€8€™€8©°!)€l UMM 
natn aa a |U[U!lCUUC”C 
ttt pon mee )|[|U0UC 
as wn he !UhUhUlUlUlUCUCUCC~™ 
ok bs eee ieee 
EF2F CD D7 EE CMP §FED? Compare with maximum track 
EP37 4C 8A DS IMP $DS@A «Write BAM to diskette = 
EFSF 20 CF EF JSR SEFCF | Set buffer pointer tS 
er93 20 CF EF JSR SEFC set. buffer pointer 
F001 4C 8A DS JMP §D58A -—=«s rite BAM to diskette = 
BOOe OOGNER: GaRGieaA, <GccMuerehecincee 3 =«==|SSF 
FO9C 4C 8A D5 "aMP $D58A 4 Meas. |!|~|~!U!~*# 
F107 4C 86 DS UMP §D586 «Read BAM from diskette 
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F12D AS 6F LDA S6F Reserve current 

F12F 48 PHA BAM pointer 

F147 cD D7 EB CMP $FED? Compare with maximum track 
Ficd 2011 FO JSR $FO11 set BAM pointer 
FIDS CD D7 EE CMP SFED? Compare with maximum track 
FIDF 2011 FO JSR $FO11 Set BAM pointer 
F248 AE D6 FE LDX $FED6 ‘Number of track zones on diskette 
F98A A9 7D «LDA #$7D -—=«s‘Motor on’ delay about 1/0.5 sec. 
FF3F 8D D7 FE STA $FED7? Mark maximum track number 
FF95 8D D7 FE STA $FED? Mark maximum track number 
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Appendix C 
1871 Zeropage Listing 


0 - 5 Jobcode of corresponding buffer assignment (0-5) 
$O - $5 Buffer 5 is not allocated in RAM. 


Meanings of jobcodes: 


$80 
$88 
$90 
SAO 
SBO 
SCO 
$DO 
SEO 
SFO 


Read a sector 

Read sector from same track 
Write a sector 

Verify a sector 

Look for a sector header 
Set head to track 0 

Execute program in buffer 
Combine program in jobloop 
Format diskette 


Meanings of acknowledgements: 


$00/01 No errors 


$02 
$03 
$04 
$05 
$06 
$07 
$08 
$09 
SOA 
SOB 
SOD 


Blockheader not found 
Sync-mark not found 

Data block not found 

Data block checksum wrong 
Format error 

Verify error 
Write-protect on hand 
Wrong header checksum 
Data block too long 

False ID / diskette changed 
Index hole not found 
CP/M syntax error 

No disk found 


6 - 17 Respective track/sector number for buffers 0-5 
$6 - $11 e.g., 6 contains the track and 7 the sector for 
buffer 0 


18 - 19 First and second characters of disk ID 
$12 - $13 in drive 0 


20 - 21 Unused 
$14 - $15 memory 
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22 - 23 First and second ID characters of last-read 
$16 - $17 sector header 

24 - 25 Track and sector number of 

$18 - $19 last-read sector header 


—— awe oe ee ee ee ee we ee ee we eee oe oe we ow eo oe oe © © o® ow oO © © © Om = Ow © © © © © © Om we oe oo © om Om CF OF Oo oo om ee ow ee oe oe ee 


26 Checksum of last-read 
S1A sector header 

27 Control byte of routine at $86E6 
$1B Buffer pointer on format routine $9B89 

28 ‘Diskette initialized' flag 
$1C O=no <>=yes 

29 Like 28/$1C, but for drive 1 

$1D Value always 1 [{EBBA] 

30 Current status of write-protect notch 

S1E O=write protect active; l=no write protect 


32 Operating status of drive 0 

$20 Bit 4: l=motor runs until turned off 
Bit 5: l=motor switched on 
Bit 6: l=stepper motor active, head set 
Bit 7: l=drive not ready 


33 $21 Like 32/$20, only for drive 1 


35 $23 Flag for bus mode: 0=1541 bus <>0= 1540 bus 
36 - 43 Sector header buffer 
$24 - $2B Commodore sectors : Data in GCR-code 
CP/M sectors : 
44 - 45 Unused 
$2C - $2D memory 


ID array contents 


46 - 47 Pointer to current buffer position 
S2E - $2F converted to GCR 
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49 Pointer to position in 


$31 


current data buffer 


1571 Internals 


Pointer to track/sector of jobloop (6-17) 


by formatting: pointer to current sector header 


Jobloops yet to be run by ‘motor out! 


Bus status byte: 
Bit 0 1=Flag for 'file only has one sector' 
Bit 3 Reverse status of Clock line 
next, waiting for Clock signal 
Bit 6 1=1571 bus mode 0=1541 bus mode 
Bit 7 1=1571 operating mode (2mHz) 
0=1541 operating mode (1mHz) 


Identifer for last-read header (normal 7) 


‘UO’ command number [see $8030] 
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69 $45 Jobcode command bits (bits 3-6 of original jobcode) 


Bit 7 : O=step out 


75 $4B Assorted temporary storage 
76 $4C Sector difference to next optimal job 


78 - 79 Temporary storage of current buffer pointer 
S4E - S$4F from GCR conversion 


80 $50 Buffer data format flag 
O=binary <>=GCR 

81 $51 Current track of format 
SFF=Format not in process 


82 - 85 Temporary storage for 4 binary bytes, which will 
$52 - $55 be converted to 5 GCR bytes 


86 - 93 Temporary storage for 8 GCR values, to produce g 
binary half-bytes, 
$56 - $5D and from that 4 binary bytes 


94 $5E Command status byte 
Bit 0-4: Last CP/M error message in jobloop 
Bit 7: 1=Disk in IBM System 34 format 
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98 = 99 1541 mode: Pointer to current head control routine 
$62 - $63 1571 mode: Pointer to positioning phase 


101 - 102 Pointer to reset (no hardware test) SEB22 
$65 - $66 will jump from SFEE7 when 'UI' has not '+!' or '-! 


104 $68 Flag for initializer method (always 0) [set by C63D] 
O=Automatic initialization 
<>0=Initialized by ‘hand! (i-command) 


106 S6A Bits 0-5: Number of 'bad' read attempts 
Bit 6 : Head not set next to track 
Bit 7 : Track O not run 


107 - 110 Pointer to table of 1541 User-command 
S6B - S6C (SFFEa) 


111 - 114 Temporary storage for sundries 
S6F - $72 (BAM calculations, etc.) 


117 - 118 Address pointer for different 
$75 - $76 system operations 


124 $7C 'ATN encountered! flag 
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125 $7D ‘'ATN observed! flag O=yes; <>0= AIN ignored 


134 -138 Temporary storage for 
$86 -S8A assorted purposes 


153 -154 Pointer to start of 
$99 -~-S9A buffer 0 ($0300) 
155 -156 Pointer to start of 
S9B -S9C buffer 1 ($0400) 
157 -158 Pointer to start of 
S$9D -S9E buffer 2 ($0500) 
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159 —- 160 Pointer to start of 
S9F - SAO buffer 3 ($0600) 


161 - 162 Pointer to start of 
SA1l - SA2 buffer 4 ($0700) 


163 - 164 Pointer to start of 
SA3 - SA4 input buffer ($0200) 


165 - 166 Pointer to start of 
SAS - S$A6 error message buffer ($02D5) 


167 - 173 Channel buffer table 1: 

SA7 - SAD Arranged one of the first buffers to internal 
channels 
167-173 correspond to channels 0-6 


Meaning of bytes: 


Bits 0-5: Buffer number arranged in channel 


Bit 6 : 1=Rewrite buffer contents 
Bit 7 : O=Buffer used active 
SFF : No buffer separated 


174 - 180 Channel buffer table 2: 

SAE - $B4 arrange 2nd buffer (functions like 167-173 above) 

181 - 186 Number of blocks allocated to file by internal 
channel 

SB5 - SBA (low-byte) Index: Channel number $82 

187 - 192 Number of blocks allocated to file by internal 
channel 

SBB - SCO (high-byte) Index: Channel number $82 

193 - 198 Pointer to current databyte of file by internal 
channel 

$C1l - $C6 Index: Channel number $82 

199 - 204 Record length of relative file opened via 

$c7 - $CC internal channel 
Index: Channel number $82 

205 - 210 Channel buffer table 3: 

SCD - $D2 Organize 3rd buffer (see 167-173) 
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211 $D3 Pointer to first filename 


216 - 220 Directory filename table 
$D8 - $DC Directory sector where filename is found 


221 - 225 Filename position table 
SDD - SE1 marks diectory entry area 


236 - 241 Channel number/filetype table 
SEC - SF1 Bit 0 : Drive number (0/1) 
Bits 1-3:Filetype 7 


242 —- 247 Channel number status table 

SF2 - SF7 Bit 1 :1l=channel is write channel 
Bit 3 :0O=EOF flag set 
Bit 7 :1l=channel is write channel 


256 $100 Drive status (drive 1): O=drive ready 


257 - 325 Hardware stack of 
$101-$145 processor 
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326 - 431 BAM buffer 2 for 1571 diskettes 
$146-S1AF 


433 $1Bl Flag for current diskette side: O=side 1 
443 - 511 Status buffer to take GCR data 

$1BB-S1FF 

912 - 553 Input buffer for command strings 
$200-$229 from computer 


554 $22A Current command number; SFF=no command 


5955 - 573 Secondary address table-internal channel 
$22B-$23D Bits 0-3 : internal channel number 


Bit 6 : l=channel for reading 
Bit 7 : l=write channel 
SFF : no secondary address 


5974 - 579 Channel number table - current data byte 
$23E-$243 


980 - 585 Channel number table - # of bytes to be transferred 
$244-$249 


591 - 592 Buffer assignment table 
S$24F-$250 Every bit of 16-bit value represents a buffer 
l=buffer assigned; O=buffer free 


593 $251 'Newly written BAM, illegal'; l=yes O=no 


594 $252 As above, for drive 1 


595 $253 Flag for 'File found'; $SFF=no 
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596 $254 'Directory in buffer' flag; O=yes <>0=no 


598 $256 Bitmap for channel assignment 
1=channel free; O=channel used 


599 §257 Pointer to current active buffers from 2-buffer 
operation 


603 - 607 Table for buffer-jobcode 
S25B-S$25F last jobcode of buffer 


608 - 613 Table for channel - data sector (track number) 
$260-$265 


614 - 619 Table for channel - data sector (sector number) 
$266-S$26B 


626 - 627 Temporary storage of directory entry 
$272-$273 (e.g., for block amount, etc.) 


629 $275 Characters to be sought in input buffer 
[C165/C16D/C268/C273] 
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631 $277 Number of filenames for 1st file declaration 


632 - 639 Filename position table in input buffer points 
S27A-S27F to beginning of command string 


640 - 644 Filename track table to current sector 
$280-S$284 


645 - 649 Filename number table of current sector 
$285-S$289 


650 $28A Joker flag; O=no joker 


661 $295 Counter for directory entries per sector (8) 
662 $296 Filetype from command string; O=no assignment 


664 $298 'Error from job observed' flag; >128=no <128=yes 


667 - 668 Pointer to current BAM-track storage 
$29B-$29C for drive 0 and 1 
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669 - 670 Track number assigned by the 
$29D-S29E BAm temporary storage 

673 - 680 BAM temporary storage 
$2A1-$2A8 

681 - 682 IRQ vector from FE67 
S2A9-S2AA 


685 - 686 Pointer in BAM buffer 
S2AD-S2AE (temporary storage reserved at pointer) 


688 —- 715 Produce buffer at 

$2B0-$2CB directory line 

716 - 724 Unused 

$2CC-$2D4 memory 

725 - 760 Generate buffer for error text 
$2D5-S$2F8 message 


761 $2F9 'Invalid BAM' flag; O=no l=yes 

762 - 763 Number of blocks free in drives 

S2FA-S2FB 0 and 1 (low-bytes) 

7164 - 765 Number of blocks free in drives 

S2FC-S2FD 0 and 1 (high-bytes) 

766 - 767 Control byte for positioning next track for 
S2FE-S2FF drives O and 1 
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Appendix D 


Overview of Disk Errors 
NUMBER DEFINITION 
00 OK TTT TS 
O1 FILES SCRATCHED, XxX 


Acknowledgement of scratch 
XX gives number of files deleted 


TT=track; SS=sector at which error occurred 


20 READ ERROR,TT,SS 
Sector header of a block was not found. The disk is treated 
as unformatted or bad. 


21 READ ERROR,TT,SS ; 
Sync marker not found. Either disk is unformatted or there 
is a drive error, such as a misaligned read head, etc. 


22 READ ERROR,TT,SS 
Data block of a sector has not been found. 


23 READ ERROR,TT,SS 
Checksum error. When this happens, you will have to look 
into the sector several times with direct access commands, 
until the error is found. Then, you will have to read the 
sector into the disk buffer, and rewrite the sector. This 
re-computes the checksum, although the contents of the 
sector can be incorrect. 


24 READ ERROR,TT,SS 
Error caused by hardware trouble-invalid bit pattern. 


25 WRITE ERROR,TT,SS 
Writing a sector has caused a discrepancy determined by a 
verify error. Use a new diskette. 


26 WRITE PROTECT ON,TT,SS 
The diskette is guarded by a write-protect tab. 


27 READ ERROR,TT,SS 
Checksum error detected in sector header. 
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29 


31 


32 


33 


34 


39 


50 


51 


52 


60 


61 


DISK ID MISMATCH,TT,SS 
Sector header ID doesn't match with last-read ID. Cause: 
Initialized or newly-formatted disk. 


SYNTAX ERROR 


The 1571/1570 does not recognize the command sent over the 
command channel. 


SYNTAX ERROR 
Command cannot be executed. 


SYNTAX ERROR 


Command sent over channel is longer than 41 characters, and 
input buffer is full. 


SYNTAX ERROR 
Joker has been used by writing as filename. 


SYNTAX ERROR 
Filename was not found. Eventually, the characters after 
the command colon were forgotten. 


FILE NOT FOUND 
Autoboot file given not found. 


RECORD NOT PRESENT 

Data set of a relative file does not exist. This message 
can be ignored when first writing a data set, only to have 
it show itself when trying to read that file. 


OVERFLOW IN RECORD 
Data being transferred to the disk is larger than the data 
set, so any more characters are ignored. 


FILE TOO LARGE 
Number of last data set is too large; no more files can be 
fit onto the diskette. 


WRITE FILE OPEN 

An attempt is made to access a file not closed by the 
normal methods. This file can only be re-opened using 
'modify'. 


FILE NOT OPEN 
An un-opened file is sought. 
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62 


63 


64 


65 


66 


67 


70 


71 


72 


73 


74 


FILE NOT FOUND 
Given program or file is not found. 


FILE EXISTS 
The new file already exists on diskette. 


FILE TYPE MISMATCH 


The given filetype doesn't match any filetype given on 
disk. 


NO BLOCK,TT,SS 

The block given by Block-Allocate is already occupied. TT 
and SS give the track and sector of the next free block of 
the track. If TT and SS=0, there are no more free sectors. 
See Chapter 2.1.3 for Block-Allocate and error handling for 
that command. 


ILLEGAL TRACK OR SECTOR,TT,SS 
The sector parameters given by direct access commands are 
wrong. 


ILLEGAL TRACK OR SECTOR,TT,SS 
The sector linking points to a sector which is not onhand. 


NO CHANNEL 


No more channels are available. You will have to close an 
already-open file somewhere to get a channel back. 


DIR ERROR,TT,SS 
The BAM contents in disk memory do not match with the BAM 


on diskette. You will have to initialize the diskette when 
this happens. 


DISK FULL 


You have reached the maximum capacity of the disk, and have 
less than three blocks free. 


Power-on message 
An attempt has been made to write to a disk formatted under 


another DOS. 


DRIVE NOT READY 
There is no formatted disk in the drive. 


ROM-325 
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Index 


APPEND, 53, ROM-188, ROM-190 
ATN, ROM-3,ROM-4 
autostart files, 100 

& command, ROM-96, ROM-232 


BACKUP, 38 
BAM, 33, 75-80, ROM-95, ROM-97, ROM-159, ROM-300 
BASIC versions, 11 
BDOS and BIOS, 105 
BLOAD/BSAVE, 21 
block commands, ROM-145 
B-A, ROM-148 
B-E, ROM-150 
B-P, ROM-150 
B-R, ROM-149 
B-W, ROM-149 
blocks, 69 
allocate/free, 72, ROM-159, ROM-254 
reading/writing, 69 
execute, 88 
BOOT, 40 
bus 1541 
input 
output, ROM-7 
bus 1571 
input,ROM-5 
output, ROM-5, ROM-6, 
read, ROM-8 
buffers, 68 


C-128 ports, 3 
carriage return (CR), 45 
checksum, ROM-1, ROM-48, ROM-56 
CIA 6526, 136 
circuitry (1570/1571), 130 
clock buts, 109 
channels 
close, ROM-169 
open, ROM-196 
COLLECT,33 
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command channel, 31 
command string, ROM-112, ROM-114, ROM-118 
search, ROM-116 
table, ROM-117 
Commodore controller, 139 
CONCAT, 35 
COPY, 36, ROM-135 
CP/M boot, 41 
error, ROM-26 
formats, 93-96, 111-117, ROM-28 
initialize, ROM-31 
programming under, 105 
read sector, ROM-10, ROM-13, ROM-15, ROM-42, ROM-47 
write sector, ROM-11, ROM-44 
sector format, ROM-14 
verify, ROM-46 
Cyclic Redundancy Check (CRC), 112 


data channels, 13 
data field, 45 
data storage, 7, 13, 44, 58 
DCLEAR, 39 
DCLOSE, 48 
device address, ROM-50 
device request fast, ROM-5 
DIP switches, 4, 12 
direct access commands, 67 
DIRECTORY/CATALOG, 23 
directory, 73, ROM-174, ROM-182, ROM-300 
close, ROM-195 
LOAD "$", ROM-247 
search, ROM-122 
transmit, ROM-191 
disk command table, ROM-301 
Disk Operating System (DOS), 8, 14 
buffer, 87 
controller reset, ROM-264 
errors, 160, ROM-225 
history, 155 
important routines, 156, ROM-110 
SHELL, 38 
zero-page, 178 
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Disk Parameter Block (DPB), 106 
diskettes (5 1/4"), 6 
formatting, 14 
formats, 9, 93 
free blocks, ROM-106, ROM-132 
operation, 108 
DLOAD/RUN, 16 
DOPEN#, 57 
drive LED, ROM-23 
drive motor 
off, ROM-23, ROM-285 
on, ROM-22, ROM-286 
step, ROM-24 
DS/DSS$/ST, 27 
DSAVE, 18 
DVERIFY, 20 


EOI, 29 
EOT, 29 
erasing files, 25 
error byte 
output, ROM-17 
error channel, ROM-172, ROM-175 
error messages, 27, ROM-10, ROM-54, ROM-114, ROM-177, ROM-225 
listing, ROM-323 
output, ROM-226 
RAM or ROM, ROM-240 
fast-load, ROM-51 
file construction, 81 
file 
close, ROM-192, ROM-193 
open, ROM-189, ROM-190 
pointer, ROM-201 
filename rules, 18 
file type names, ROM-302 
formatting diskettes, 14,ROM-80, ROM-90, ROM-304 


GCR coding, 128-129, ROM-65, ROM-71, ROM-74, ROM-271, 
ROM-278, ROM-300 
tables,ROM-88, ROM-279, ROM-283 
GET#, 49, 63 
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handshaking, 144 

head 
control routine, ROM-79, ROM-286 
initialize, ROM-287 
movement, ROM-288 
set, ROM-48, ROM-49, ROM-60 
switch circuitry, ROM-299 

headers, 8, 14 


IBM System 34 format, 93, 96-99, 111-117, ROM-34, ROM-39, ROM-41 
read, ROM-29,-32-42 
routine, ROM-21 
sector, ROM-18, ROM-20 

initialize, ROM-99, ROM-119, ROM-158 

INPUT#, 49, 51, 63 

interface components (6522/6526), 131 

IRQ vector,-306 


"killer track", 89 


LED lights, 4, ROM-111, ROM-240, ROM-246 
loading/saving programs, 16-19, 21-22 

speed, 19 

fast-load, 94 


machine language, 12 
built-in monitor, 10 
programming WD-1770,118-121 

memory read/write, 87 

memory execute, 88 

MFM data recording, 108 

mode, ROM-50 

M-R command, ROM-142 

M-W command, ROM-143 


NEW, ROM-250 
OPEN, 31, 45, ROM-184 
peripheral control register, 133 


PRINT#, 32, 47, 58 
pointer, 62 
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RAM and ROM test, ROM-241 

read attempts, ROM-48 

read error, ROM-179 

read-write head, 6, 108 

relative files, 44, 56-64, ROM-140, ROM- 151 
end, ROM-215 
errors, ROM-224 
insert records, ROM-219 
number of sectors, ROM-207 
side sectors, ROM-206, ROM-207, ROM-210, ROM-222 
write record, ROM-209 

RECORD #, 58 

RENAME, 34, ROM-141 

reset, ROM-306 


SCRATCH, 25 
routine, ROM-132 
sectors (diskette), 7 
format set, ROM-48 
get, ROM-203 
headers,8, ROM-62, ROM-65, ROM-69, ROM-273 
read, ROM-66, ROM-272 
size, 7 
write, ROM-70, ROM-274 
verify, ROM-74, ROM-277 
serial bus, 141-150 
operating system routines, 146 
sequential files, 44-55 
side-sector blocks, 82-84 
SRQ line, 148 
status byte 
display, ROM-16 
get, ROM-15 
set, ROM-16 
stepper motor, 151 
sync marks, 9, 109, 126-127 


tracks (diskette), 7 
density, 9 
get, ROM-203 
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USER commands, 91, ROM-109, ROM-143 
jump addresses U1-U9, ROM-306 

USER-0, ROM-1, ROM-2, ROM-109 

U1, ROM-149 

U2, ROM-150 

user files, 81 


VALIDATE, ROM-249 
verify ROM--94 
Versatile Interface Adapter (VIA), 131-135 


WD-1770 controller, 118, 137 

wildcards, 42 

write-protect tab (diskette), 7 
status, ROM-25, ROM-32 


zeropage, 158 
initialize, ROM-242 
listing, ROM-311 


1541 
create BAM, ROM-102 
new , ROM-252 
format, ROM-101,-134, ROM-290 
initialize 1541 mode, ROM-305 
interrupt routine, ROM-86 
mode, 140, ROM-50 
switching 1540.1541, ROM-303 


1571 
create BAM, ROM-102 
format, ROM-90, ROM-101 
initialize, ROM-99 
reset, ROM-31, ROM-51 


# command, ROM-144 
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Optional diskette 





Includes Disk Monitor! 
For your convenience, the program listings contained in this book are 
available on a Commodore formatted floppy disk. You should order the 
diskette if you want to use the programs, but don't want to type them in 
from the listings in the book. 


All programs on the diskette have been fully tested. You can change the 
programs for your particular needs. The diskette is available for $14.95 plus 
$2.00 ($5.00 foreign) for postage and handling. 


When ordering, please give your name and shipping address. Enclose a 
check, money order or credit card information. Mail your order to: 


Abacus Software 
P.O. Box 7219 
Grand Rapids, MI 49510 


Or for fast service, call (616) 241-5510. 
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Software 


REQUIRED 
READING 


A QATA- BECKER BOOK PUBLISHED BY 
Abacus Software 


Detailed guide presents the 128's 
operating system, explains graphic 
chips, Memory Management Unit, 80 
column graphics and commented 
ROM listings. S00pp $19.95 


Get all the inside information on 
BASIC 7.0. This exhaustive hand- 
book is complete wih commented 
BASIC 7.0 ROM listings. Coming 
Summer '86. $19.95 


COMMODORE 


Useful programrmnng 


Filled with info for everyone. Covers 
80 column hi-res graphics, win- 
dowing, memory layout, Kernal 
routines, sprites, software pro- 
tection, autostarting. 300pp $19.95 


COMMODORE 
The C-128 CPAA 


Insiders’ guide for novice & ad- 
vanced users. Covers sequential & 
relative files, & direct access com- 
mands. Describes DOS routines. 
Commented listings. $19.95 





Learn fundamentals of CAD while 
developing your own system. Design 
objects on your screen to dump toa 
printer. Includes listings for ‘64 with 
Simon's Basic. 300pp $19.95 


ADVENTURE | 


Quick-haters 


A DATA: BECKER BOOX PUBLISHED BY 
Abacus Software 


Introduction to programing; problem 
analysis; thorough description of all 
BASIC commands with hundreds of 
examples; monitor commands; util- 
ities; much more. $16.95 


ANATOMY OF C-64 Insider's guide to the 
'64 internals. Graphics, sound, VO, kernal, 
memory maps, more. Complete commented 


ROM listings. 300pp $19.95 
ANATOMY OF 1553 gDRIVE Best 
handbook on s all. Many 
examples and Yom commented 
1541 ROM listing S00pp $19.95 


MACHINE LANGUAGE C-64 Learn 
6510 code write fast programs. Many sam- 
ples and listings for complete assembler, 
monitor, & simulator. 200pp $14.95 


GRAPHICS BOOK C-64 - best reference 
covers basic and advanced graphics. 
Sprites, animation, Hires, Multicolor, 
lightpen, 3D-graphics, IRQ, CAD, pro- 
jections, curves, more. 350pp $19.95 


Abacus 


A OATA- BECKER BOOK PUBLISHED BY 


Abacus 





Presents dozens of programming 
quick-hitters. Easy and useful 
techniques on the operating system, 
stacks, zero-page, pointers, the 
BASIC interpreter and more. $16.95 


sourcebook 


Software Abacus 


TRICKS & TIPS FOR C-64 Collection of 
easy-to-use techniques: advanced graphics, 
improved data input, enhanced BASIC, 
CP/M, more. 275pp $19.95 


1541 REPAIR & MAINTENANCE 
Handbook describes the disk drive hard- 
ware. Includes schematics and techniques 
to keep 1541 running. 200pp $19.95 


ADVANCED MACHINE LANGUAGE 
Not covered elsewhere: - video controller, 
interrupts, timers, clocks, VO, real time, 
extended BASIC, more. 210pp $14.95 


PRINTER BOOK C-64/VIC-20 Under- 
stand Commodore, Epson-compatibie print- 
ers and 1520 plotter. Packed: utilities; gra- 
phics dump; 3D-plot; commented MPS801 
ROM listings, more. 330pp $19.95 
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A DATA - BECKER BOOK PUBLISHED BY 





Essential guide for everyone inter- 
ested in CP/M on the 128. Simple 
explanation of the operating system, 
memory usage, CP/M utility pro- 
grams, submit files & more. 


LLi255499964 


THE 


Software 


$19.95 


SCIENCE/ENGINEERING ON C-64_ In 
depth intro to computers in science. Topics: 
chemistry, physics, biology, astronomy, 
electronics, others. 350pp $19.95 
CASSETTE BOOK C-64/VIC-20 
Comprehensive guide; many sample 
programs. High speed operating system 
fast file lbading and saving. 225pp $14.95 
IDEAS FOR USE ON C-64 Themes: 
auto expenses, calculator, recipe file, stock 
lists, diet planner, window advertising, 
others. Includes listings. 200pp $12.95 


COMPILER BOOK C-64/C-128 All you 
need to know about compilers: how they 
work; designing and writing your own; 
generating machine code. With working 
example compiler. 300pp $19.95 








GAMEWRITERS ALLS Sad 
HANDBOOK FOR tAN AG 
COMMODOHE 63 HOR POR ME 


1 - 
POMMODURE 69 


Adventure Gamewriter's Handbook 

Step-by-step guide to designing and writing 
your own adventure games. With automated 
adventure game generator. 200pp $14.95 


PEEKS & POKES FOR THE C-64 

Includes in-depth explanations of PEEK, 
POKE, USR, and other BASIC commands. 
Learn the “inside” tricks to get the most out 
of your '64. 200pp $14.95 


Optional Diskettes for books 

For your convenience, the programs 
contained in each of our books are avail- 
able on diskette to save you time entering 
them from your keyboard. Specify name of 
book when ordering. $14.95 each 


~ 


\ 
C-128 and C-64 are tademarks of Commodore Business Machines Inc. — 


Software 





P.0. Box 7219 Grand Rapids, Ml 49510 - Telex 709-101 - Phone (616) 241-5510 


Call now for the name of your nearest dealer. Or to order directly by credit card, MC, AMEX of VISA call (616) 
241-5510. Other software and books are available—Call and ask for your free catalog. Add $4.00 for shipping 
per order. Foreign orders add $10.00 per book. Dealer inquires welcome—1400+ nationwide. 
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INTERNALS 
Essential guide to learning the 
Inside information of the ST. 
Detalled descriptions of sound 
& graphics chips, internal 
hardware, various ports, GEM. 
Commented BIOS listing. An 
indispensible reference for 
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Softwase 


GEM Programmer's Ref. 
For serlous programmers in 
need of detailed Information 
on GEM. Written with an 
easy-to-understand format. All 
GEM examples are written in 
C and assembly. Required 
reading for the serious pro- 


(M8 Bencais 


AA ma 
Abdacus 


Softwase 


TRICKS & TIPS 
Fantastic collection of pro- 
grams and info for the ST. 
Complete programs include: 
super-fast RAM disk; time- 
saving printer spooler: color 
print hardcopy; plotter output 
hardcopy. Money saving tricks 
and tips. 


GRAPHICS & SOUND 
Detailed guide to understand- 
ing graphics & sound on the 
ST. 2D & 3D function plotters, 
Moiré patterns, various reso- 
lutions and graphic memory, 
fractals, waveform generation. 
Examples written in C, LOGO, 
BASIC and Modula2. $19.95 








PRESENTING THE ST 
Gives you an in-depth 
look at this sensational 
new computer. Discusses 
the architecture of the 
ST, working with GEM, 
the mouse, operating 
system, all the various 
interfaces, the 68000 
chip and its instructions, 
LOGO. $16.95 


Abacus 


your library. 450pp. $19.95 





grammer. 





Program in the fastest 
language for your Atari 
ST. Learn the 68000 
assembly language, its 
numbering system, use 
of registers, the structure 
& important details of the 
instruction set, and use of 
the internal system 
routines. 280pp t19.95 


450pp. $19.95 


MACHINE LANGUAGE 
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LOGO 
Take control of your 
ATARI ST by learning 
LOGO-the easy-to-use, 
yet powerful language. 
Topics covered include 
Structured programming, 
graphic movement, file 
handling and more. An 
excellent book for kids as 
well as adults. $19.95 








ATA 


200 pp. $19.95 


— 


PEEKS & POKES 
Enhance your programs 
with the examples found 
within this book. Explores 
using the different lang- 
uages BASIC, C, LOGO 
and machine language, 
using various interfaces, 
memory usage, reading 
and saving from and to 
disk, more. $16.95 





BEGINNER'S GUIDE 
Finally a book for those 
new to the ST wanting to 
understanding ST basics. 
Thoroughly understand 
your ST and its many 
devices. Learn the funda- 
mentals of BASIC, LOGO 
and more, Complete with 
index, glossary and illus- 
trations. +200pp $14.95 





BASIC Training Guide 
Indispensible handbook for 
beginning BASIC program- 
mers. Learn fundamentals of 
programming. Flowcharting, 
numbering system, logical 
operators, program structures, 
bits & bytes, disk use, chapter 
quizzes. 






BASIC TO C 
If you are already familiar 
with BASIC, learning C 
will be all that much 
easier. Shows the trans- 
ition from a BASIC 
program, translated step 
by step, to the final C 
program. For all users 
interested in taking the 
next step. $19.95 


The ATARI logo and ATARI! ST are trademarks of Atari Corp. 


Software 


P.O. Box 7219 Grand Rapids, MI 49510 - Telex 709-101 - Phone (616) 241-5510 


Optional diskettes are available for all book titles at $14.95 

Call now for the name of your nearest dealer. Or order directly from ABACUS with your MasterCard, VISA, or Amex card. Add 
$4.00 per order for postage and handling. Foreign add $10.00 per book. Other software and books coming soon. Call or 
write for your free catalog. Dealer inquiries welcome—over 1400 dealers nationwide. 







1 The complete compiler 
E] and development pack- 
| age. Speed up your pro- 
“1 grams 5x to 35x. Many 
=] options: flexible memory 
=| Management; choice of 
| compiling to machine. 
=| code, compact p-code or 
= both. ‘128 version: 40 or 
E) 80 column monitor output 
=| and FAST-mode opera- 
Ey tion. ‘128 Compiler's ex- 
rj tensive 80-page pro- 
21 grammer's guide covers 
=| compiler directives and 
Reno 28 =e options, two levels of 
optimization, memory usage, VO handling, 80 column hi-res graphics, faster, 
higher precision math functions, speed and space saving tips, more. A great 
package that no software library should be without. 128 Compiler $59.95 
64 Compiler $39.95 


For school or software 
development. Learn C on 
= your Commodore with our in- 

o [Eten wrt agp, depth tutorial. Compile C pro- 
heen grams into fast machine 

stops 10. language. C-128 version has 
Liceorseen added features: Unix™-like 

\ tent O23 inteeaenn| | Operating system; 60K RAM 
aa ian disk for fast editing and 
compiling Linker combines 

up to 10 modules; Combine 

M/L and C using CALL; 51K 
= . available for object code; 
Fast loading (8 sec. 1571, 18 sec. 1541); Two standard I/O librarys plus 
two additional libraries—math functions (sin, cos, sqrt, etc.) & 20+ graphic 
commands (line, fill, dot, etc.). C-128 $79.95 
C-64 $79.95 
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OOMESTIC AUTO SALES 


SEC | ggg | GRONERAL maToas 
2 &§-Foro 


ERZCHRVSLEA 
200 | GeAMERICAN MOTORS 


Easily create professional 
high quality charts and 
e graplis without programming. 
Ss as ty h kas You can immediately change 
—— —= the scaling, labeling, axis, 
bar- filling, etc. to suit your 
needs. Accepts data from 
CalcResult and MultiPlan. 
C-128 version has 3X the 
resolution of the '64 version. 
Outputs to most printers. 
C-128 $39.95 
C-64 $39.95 








PowerPlan 
One of the most powerful spreadsheets with integraded 
graphics. Includes menu or keyword selections, online help 
screens, field protection, windowing,trig functions and more. 
PowerGraph, the graphics package, is included to create 


integrated graphs & charts. C-64 $39.95 
COBOL Compiler for the C-64 $39.95 
Ada Compiler for the C-64 $39.95 
VideoBasic Language for the C-64 $39.95 
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ULAR 
NARE 


Remarkably easy-to-use 
interactive drawing pack- 
age for accurate graphic 
designs. New dimension- 
ing features to create 
exact scaled output to all 
major dot-matrix printers. 
Enhanced version allows 
you to input via keyboard 
or high quality lightpen. 
Two graphic screens for 
=e COPYing from one to the 
other. DRAW, LINE, BOX, 
CIRCLE, ARC, ELLIPSE 
<I =| available. FILL objects 

with preselected PAT- 
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TEHNS; add TEXT; SAVE and RECALL designs to/from disk. Define your own 
library of symbols/objects with the easy-to-use OBJECT MANAGEMENT 
SYSTEM-store up to 104 separate objects. 


C-128 $59.95 
C-64 $39.95 


Not just a compiler, but a 
complete system for develop- 
ing applications in Pascal 
with graphics and sound 
features. Extensive editor 
with search, replace, auto, 
renumber, etc. Standard J & 
W compiler that generates 
fast machine code. If you 
want to learn Pascal or to 
develop software using the 
best tools available-SUPER 
Pascal is your first choice. 

C-128 $59.95 

C-64 $59.95 


OTHER TITLES AVAILABLE: 


Technical Analysis System 
Sophisticated charting and technical analysis system for 
serious investors. Charting and analyzing past history of a 
stock, TAS can help pinpoint trends & patterns and predict a 
stock's future. Enter data from the keyboard or from online 
financial services. C-64 $59.95 


Compiler and Software 
Development System 





Personal Portfolio Manager 
Complete protfolio management system for the individual or 
professional investor. Easily manage your portfolios, obtain 
up-to-the-minute quotes and news, and perform selected 
analysis. Enter quotes manually or automatically through 
Warner Computer Systems. C-64 $39.95 


Xper 
XPER is the first "expert system” for the C-128 and C-64. While 
ordinary data base systems are good for reproducing facts, 
XPER can derive knowledge from a mountain of facts and help 
you make expert decisions. Large capacity. Complete with 
editing and reporting. C-64 $59.95 


C-128 and C-64 are tademarks of Commodore Business Machines Inc. 
Unix is a trademark of Bell Laboratories 
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The essential reference 
forall 1571 users 








For the beginner to the advanced user, 1571 Internals is a vital 
addition to your C-128 computer library. Packed with straight- 
forward, detailed information on how to get the most out of your 
1571 drive. Just a few of the topics covered in 1571 Internals: 


Fundamentals for beginners 

Applying the disk drive commands 

Creating sequential and relative files 

Using your 1571 under Commodore BASIC 
Working with "foreign" disk formats 

Putting programs in the DOS buffer 

The 1571 and CP/M" 

Internal disk drive functions 

Fully documented 1571 DOS listing 
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